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Avertissement 


Le livre « Jeux graphiques sur ATMOS » contient un nombre assez 

important de listings. Pour ceux d’entre vous qui n’ont pas encore 

une grande expérience de la programmation, nous fournissons une 

liste non exhaustive de conseils : 

— Recopier scrupuleusement tous les caractères avant de faire 
d’éventuelles modifications. 


— Respecter les majuscules et les minuscules. 


— Conserver le même nombre de caractères d’espacement dans 
les chaînes de caractères. 


L’imprimante utilisée pour les listings édite 67 caractères par 
ligne. Pour les instructions plus longues, elle continue à la ligne 


suivante. En conséquence, ne pas appuyer sur la touche 
[RETURN] à la fin de la ligne, mais à la fin de l’instruction 
(cette fin d’instruction est mise en évidence par le numéro de 
l’instruction suivante). 


Ne pas confondre le chiffre zéro et la lettre O, ni le chiffre 1 
et la lettre I. 

Enfin, sauvegarder votre programme sur cassette avant toute 
exécution, car l’exécution d’une mauvaise instruction peut vous 
faire perdre la main. Le seul moyen de pouvoir dialoger avec 
l'ATMOS étant parfois de le débrancher puis de le rebrancher, 
vous perdriez alors le fruit d’un long travail de patience. 


Remarque : Les programmes où l’on utilise le clavier pour déplacer 
un mobile sur l’écran peuvent être améliorés si vous changez la 
vitesse de l’auto repeat avant toute exécution. Vous l’obtiendrez en 
plaçant en # 24E et # 24 F une valeur comprise entre 1 et 32 
pour la première, et entre 1 et 4 pour la seconde. 
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Introduction 


Comme la plupart des possesseurs de micro-ordinateurs, vous 
vous êtes posé la question : « Un ordinateur ! Pourquoi 
faire ? ». Certains vous répondront « Pour gérer le budget fami- 
lial », d’autres « Pour écrire de petits programmes pédagogi- 
ques », d’autres encore « Pour ne pas être en retard sur la tech- 
nique ». Mais la plupart des gens n’auront que deux mots sur le 
bout des lèvres « Pour jouer ». 


Nous ne nous lançons pas dans cette polémique. Néanmoins 
c’est à cette dernière catégorie de personnes que nous nous 
adressons. 


Pour pouvoir jouer avec votre appareil vous pouvez vous pro- 
curer des programmes de jeu. Ils sont en général très attrayants, 
mais leur prix n’est pas toujours abordable. Vous restez aussi à 
ce niveau un utilisateur passif de votre machine. 


L’autre solution pour jouer avec votre Atmos est de program- 
mer vos propres jeux. La tâche n’est pas toujours facile, mais 
vous aurez la satisfaction du créateur accompli lorsque vous les 
verrez s’exécuter sur l’écran. 

Ce livre vous donnera quelques techniques de base pour 
programmer des jeux. Nous nous intéresserons tout d’abord aux 
structures générales de ces programmes puis aux possibilités 
sonores et graphiques fournies par votre machine et enfin aux 
avantages et inconvénients de l’utilisation du langage machine. 
Nous donnerons alors des informations utiles à l’implantation 
d’une routine écrite en langage machine, ainsi que quelques rou- 
tines pouvant être utilisées dans de nombreux cas. 


Enfin nous vous donnons les listings de nombreux jeux. Vous 
verrez ainsi, par l’exemple, l’application des techniques explici- 
tées dans la première partie. 

Ces jeux ont été, en partie, inspirés par des jeux classiques 
connus du grand public. Les autres sont le fruit de notre pure 
imagination. 

Il ne tient qu’à vous d’en faire autant. 
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CHAPITRE 1 


Techniques 
de programmation 
des jeux 


Le but de ce chapitre est d'amener le lecteur à pro- 
grammer lui-même ses propres jeux sur son ordinateur per- 
sonnel Atmos. Des connaissances générales sur le langage 
BASIC seront supposées connues (si cela n'est pas encore 
le cas, il sera utile de lire, dans la même collection, 
le livre “Guide de l'Oric" où les principes de la pro- 
grammation BASIC sont exposés). 


Plutôt qu'une longue et fastidieuse énumération 
d'instructions et de fonctions, ce chapitre sera composé 
d'une série de courts exemples montrant comment se pose 
un problème de programmation de jeu et comment le résou- 
dre à partir des possibilités -— très étendues au demeu- 
rant - de l'Atmos en matière de jeux vidéo. Quand vous 
aurez lu ce qui suit, vous serez en mesure de créer des 
jeux qui seront aussi enthousiasmants et passionnants que 
les jeux du commerce, ou ceux que l'on trouve dans les 
cafés. 


1.1 COMMENT PROGRAMMER UN JEU 


C'est la question que vous vous posez tous. Voici une 
liste des opérations à effectuer dans le cas général et 
dans un ordre chronologique. Cette liste n'est, pas limi- 
tative et en matière de jeux toute initiative est la 
bienvenue. 


Tout d'abord il faut vous astreindre à ne pas commen- 
cer directement à “pianoter” sur le clavier de l'Atmos. 
La création d'un jeu se fait au brouillon - c'est préfé- 
rable car cela permet de mieux structurer son programme, 
rendant ainsi la mise au point plus rapide et plus sim- 
ple. 


Donc, au départ, il va falloir choisir un jeu soit en 
faisant appel à votre imagination débordante et fertile 
soit en prenant un jeu classique et éprouvé. 


Puis vient la phase de définition des règles du jeu. 
Tout jeu doit la comporter. Celle-ci doit être écrite 
avec précision et détail. Combien y aura-t-il de joueurs? 
Comment se compteront les points ? Quelle en sera la du- 
rée ? Qu'est-ce qui détermine la fin du jeu ? ... etc. 


A ce niveau, des limitations du jeu sont à définir 
ainsi que la spécification des coups permis et ceux qui 
sont interdits. Des restrictions à la règle du jeu per- 
mettent souvent, si elles sont bien choisies, de simpli- 
fier beaucoup la programmation sans pour autant limiter 
l'attrait et l'amusement qu'apporte le jeu. 


Là commence l'aspect informatique du jeu car il va 
vous falloir maintenant choisir la représentation maté- 
rielle du jeu (mode graphique utilisé, messages apparais- 
sant en cours de jeu, nom des variables utilisées ...). 


Ces choix sont fonction de vos dons artistiques car 
le graphisme de l'Atmos permet une présentation 
impeccable des jeux. 

Les étapes préliminaires ont pour but de simplifier 
l'étape suivante qui est l'écriture du programme propre- 
ment dit. Elles permettent d'éviter les ambiguïîtés pou- 
vant intervenir en cours d'exécution du jeu si toutes les 
possibilités n'ont pas été étudiées préalablement. Il est 


plus simple de prévoir une éventualité plutôt que de la 
corriger sur un programme après coup. L'écriture se fera 
de préférence sur papier, en commençant par le programme 
principal qui assurera les fonctions minimales du jeu, 
c'est-à-dire l'appel aux sous-programmes utilitaires qui 
gèrent le calcul des points, l'affichage, les déplace- 
ments, la stratégie de l'ordinateur, les sons, le dessin 
du terrain de jeu, etc. L'intérêt d'avoir un programme 
principal et de nombreux sous-programmes est que la mise 
au point de ceux-ci peut être effectuée indépendamment 
l'un de l'autre, permettant ainsi de bâtir petit-à-petit 
un jeu long et compliqué, en partant d'un programme prin- 
cipal simple. 


Si l'on veut effectuer des modifications dans l'as- 
pect du jeu, il suffira de modifier un seul sous-program- 
me au lieu de modifier l'ensemble du programme. 


1.2 STRUCTURE GÉNÉRALE D'UN PROGRAMME 
DE JEU 


Voyons maintenant quel est l'agencement d'un program- 
me. On peut distinguer deux sortes de structures selon 
qu'il s'agit d'un jeu rapide ou d'un jeu lent. 


La première catégorie correspond aux jeux dits "en 
temps réel". Le jeu se déroule alors tout seul sans avoir 
besoin du joueur, l'ordinateur déplaçant des objets (par 
exemple une balle) sur l'écran selon les rêgles du jeu. 
Le joueur n'influe que sur la valeur de certains paramè- 
tres (par exemple la position de la raquette), par action 
sur le clavier ou sur une poignée de jeu. L'acquisition 
de ces paramètres ne doit pas demander l'interruption de 
l'exécution du programme. Cela est obtenu par une struc- 
ture rebouclée sur elle-même. 


Le programme ne se termine pas par un END mais par un 
GOTO vers le début du programme. 


Cette boucle principale contient une série de tests 
qui déterminent l'évolution future du terrain de jeu. 
Leur nombre doit être le plus réduit possible, pour des 
raisons de rapidité. Ils devront comprendre une scruta- 
tion du clavier qui sera périodique puisqu'elle se fera à 
chaque tour de la boucle. Voici une représentation de la 
structure générale de ce type de jeu 
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Affichage des règles du jeu 


Initialisations 


Tracé du terrain de jeu 







Une touche du clavier 
a-t-elle été pressée ? 


Exécuter la commande 









Déplacement des objets 





Y a-t-il une collision ou 
un dépassement des limites 
du terrain ? 


oui 











Traiter la collision 
ou le dépassement. 
Augmenter le score 
arrêter le jeu si fin 
de la partie 









Ordinogramme d’un jeu d’action rapide 


La boucle principale doit s'exécuter le plus rapide- 
ment possible. Elle ne doit servir qu'à détecter la pres- 
sion d'une touche, l'arrivée d'un événement (collision, 
dépassement des limites du jeu, du temps, impact, etc.) 
qui modifiera le déroulement du jeu. Le traitement de ces 
événements est effectué, lui, en dehors de cette boucle 
principale. On utilisera pour cela un certain nombre de 
sous-programmes effectuant ces opérations. Il pourra 
s'agir du comptage des points par incrémentation d'une 
variable, du déplacement du joueur d'après la touche 
pressée, de tests plus fins de débordement ou de colli- 
sion permettant un traitement spécifique de ces évêéne- 
ments. Ils pourront être aussi longs que l'on veut, leur 
durée étant moins critique. 


Dans la deuxième catégorie on trouve les jeux lents. 
Ce sont tous les autres jeux qui font appel au joueur 
pour continuer la partie, en lui laissant un temps de ré- 
flexion. Les instructions peuvent alors s'ordonner liné- 
airement selon la structure suivante : 


1) Présentation du jeu. 
2) Jeu proprement dit. 
3) Détermination du score et affichage des résultats. 


4) Fin du jeu, ou demande de nouvelle partie (on re- 
lance alors en 2). 


L'ordinateur sert alors d'arbitre et d'adversaire 
avec qui l'on communique par le biais de questions et de 
réponses au clavier. L'ordinateur attend une réponse pour 
réagir selon les règles établies. 


Le temps d'exécution n'est pas critique. On peut 
alors établir des stratégies de jeu beaucoup plus com- 
plexes que dans les jeux d'action. 


Voyons maintenant comment l'on doit utiliser les pos- 
sibilités du langage BASIC pour la programmation des 
jeux. 


1.3 PROGRAMMATION DES JEUX D'ACTION 


Ce qui fait la qualité d'un jeu d'action, c'est sa 
rapidité à déplacer des objets sur l'écran. 


Pour recréer l'illusion du mouvement une méthode d'a- 
nimation - couramment utilisée- consiste à visualiser un 
caractère (graphique ou redéfini à votre goût) à une 
coordonnée puis, après une courte attente, à imprimer un 
caractère “blanc” (espacement) à la même coordonnée. Ce 
qui effacera le caractère précédent. Ensuite il faut cal- 
culer les nouvelles coordonnées puis recommencer au dé- 
but. Cela consiste à faire de l'animation image par 
image, tout comme au cinéma. 


On voit alors que la vitesse de déplacement dépend de 
l'écart entre chaque nouvelle coordonnée (qui ne doit pas 
être trop grand si l'on désire des mouvements qui n'appa- 
raissent pas saccadés). Elle dépend aussi du temps mis 
par la machine pour effectuer les impressions, de la du- 
rée de l'attente entre l'impression et l'effacement. Cet- 
te attente permet de laisser visible le caractère pendant 
une durée suffisante pour qu'il ne semble pas clignoter 
lors des déplacements. 


Si dans un jeu il suffisait de déplacer un seul objet 
sans rien faire d'autre, on obtiendrait de grandes vites- 
ses (et un jeu plutôt ennuyeux!). En général il y a plu- 
sieurs objets en mouvement en même temps. Cela allonge la 
durée de la boucle d'impression et limite en fait le nom- 
bre de mobiles, si l'on veut garder un jeu suffisamment 
rapide. 


Les nouvelles coordonnées dépendent d'éventuelles 
collisions, de débordements de l'écran. La boucle doit 
donc comporter aussi des tests qui permettront de traiter 
cela. Tout ceci montre que, si l'on veut optimiser la vi- 
tesse, il faut agir sur les tests, la structure de la 
boucle et sur la prise en compte des ordres du clavier. 


1.3.1 Déplacements 
Pour commander le déplacement d'un objet sur l'écran, 


il est commode d'utiliser les touches comportant des flè- 
ches qui sont situées en bas du clavier. On utilise pour 
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cela la fonction KEY$ qui retourne une variable caractère 
dont le code ASCII vaut en décimal : 


8 = vers la gauche 
9 = vers la droite 
10 = vers le bas 

11 = vers le haut 


La touche d'espacement peut être aussi utilisée (pour 
effectuer un tir par exemple) ; elle correspond au code 


#32" & 
La touche “Return” vaut "13". 
Voyons ce que cela donne sur un exemple. 


Pour scruter l'enfoncement d'une des quatre touches 
fléchées, on peut utiliser les instructions suivantes : 


100 REM EXEMPLE À NE PAS SUIVRE ! 

110 IF KEYS = CHR$S(8) THEN GOSUB 1000 
120 IF KEYS = CHR$(9) THEN GOSUB 2000 
130 IF KEY$S = CHR$(10) THEN GOSUB 3000 
130 IF KEY$S = CHR$(11) THEN GOSUB 4000 
150 GOTO 100 


Les sous-programmes 1000 à 4000 contiennent les opé- 
rations à effectuer pour chacune des touches. Cette façon 
de procéder est lente. En effet, à chaque test, on prend 
un nouvel échantillon du clavier pour KEY$S (ce qui est 
assez long à effectuer) alors qu'il suffit de le faire 
une seule fois avant de commencer la série de tests. 
D'autre part, cette batterie de tests peut avantageuse- 
ment être remplacée par la structure ON GOSUB ou ON GOTO 
qui s'exécutera plus vite car il n'y aura qu'une condi- 
tion à évaluer. 


Voici une meilleure façon de procéder : 


100 M$ = KEYS 

110 ON ASC(M$) - 7 GOSUB 1000, 2000, 3000, 
4000 

120 GOTO 100 


L'expression ASC(M$) - 7 vaut successivement 1, 2, 3, 
4 suivant que l'on a appuyé sur la touche flèche gauche, 
droite, bas ou haut. 


Après évaluation de cette expression, le programme 
effectue le sous-programme dont le numéro de ligne est à 
la place donnée par le résultat de cette expression. 


Il peut malgré tout y avoir un problème si l'on ap- 
puie sur une autre touche que les flèches car la condi- 
tion de saut prend alors une valeur différente de 1, 2, 3 
ou 4. On peut alors faire précéder le ON GOSUB par un 
test préliminaire qui détectera si l'on a bien pressé sur 
une des touches valides. 


90 REM TEST DE DEPLACEMENT 

100 M$ = KEYS 

110 IF M$ > = CHR$(8) AND CHR$(11) >= M$ 
THEN ON ASC(M$) - 7 GOSUB 1000, 2000, 
3000, 4000 

120 GOTO 100 


La ligne 120 relance le programme à la scrutation du 
clavier qui devient ainsi périodique. Cette boucle est 
parcourue assez rapidement pour que la prise en compte de 
la touche apparaïsse instantanée au joueur, alors qu'en 
réalité elle n'est pas effectuée constamment. On effectue 
alors ce que l'on appelle un “polling" du clavier. Cette 
notion peut être étendue aux autres variables suscepti- 
bles d'être modifiées en cours de jeu, le résultat de la 
modification n'étant actif qu'à chaque rebouclage du 
“polling". Cela peut s'appliquer au changement de posi- 
tion sur l'écran. 


La position d'un mobile sur l'écran peut être repérée 
par deux variables, x et y par exemple, qui seront ses 
coordonnées et que l'on pourra utiliser pour le visuali- 
ser par un PLOT en basse résolution ou un CURSET et un 
CHAR en haute résolution. 


Pour un déplacement, il est préférable de modifier 
deux variables auxiliaires, Dx et Dy par exemple, qui re- 
présenteront les déplacements relatifs du mobile par rap- 
port à sa position précédente. 


Voici un exemple d'animation : 
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10 REM SUPERBALLE 

20 CLS : LORES O0 

30 X=3:Y=3:DX = 1 : DY = 1 

50 REPEAT 

120 X = X + DX 

130 Y = Y + DY 

140 PLOT X, Y, "O" 

150 IF X <3ORX > 35 OR Y < 3 OR Y > 23 

THEN GOSUB 5000 

LPO: PEOT Ye 

190 UNTIL KEY$S = "S" 

200 END 
5000 IF X < 3 OR X > 35 THEN DX = -DX 
5010 IF Y <3 OR Y > 23 THEN DY 
5020 RETURN 


Il 
1 
[æ] 
< 


Comme précédemment, pour éviter d'avoir plusieurs 
tests de suite dans la boucle (réalisée ici par REPEAT 
UNTIL, ce qui permet un arrêt du jeu quand on presse la 
touche S (STOP!)), on effectue un test global pour savoir 
si la balle (la lettre “O") est sortie des limites du 
terrain. Si cela est le cas, on exécute alors le sous- 
programme 5000 qui calcule les déplacements relatifs de 
la balle pour que l'on ait un “rebond” sur les limites. 


On peut améliorer ce sous-programme en introduisant 
un rebond et une vitesse aléatoires. 


On écrira alors 


5000 IF X < 3 OR X > 35 THEN DX = 

= SGN(DX) * (INT(RND(1) * 2) + 1) 
5010 IF Y <3 OR Y > 23 THEN DY = 

— SGN(DY) * (INT(RND(1) * 2) + 1) 
5020 RETURN 


Si vous êtes fatigué de voir cette balle rebondir 
sans arrêt sur les bords de l'écran, il n'y a qu'à ajou- 
ter une raquette qui vous permettra de dévier la balle. 
Pour cela nous allons réutiliser l'exemple TEST DE DEPLA- 
CEMENT pour faire bouger la raquette. 


Ajoutez dans le programme SUPERBALLE les lignes 100 
et 110 de TEST DE DEPLACEMENT. 


Si l'on veut que la raquette puisse bouger dans tou- 
tes les directions, il faut écrire quatre sous-programmes 
modifiant les coordonnées de la raquette XR, YR. 


Ces coordonnées sont initialisées préalablement par 
la ligne supplémentaire 


40 XR = 10 : YR = 10 


Voici les sous-programmes de déplacement de la ra- 
quette 


1000 IF XR <> 3 THEN XR = XR - 1 : PLOT XR, 
YR, "I" : PLOT XR + 1, YR, “ 

1010 RETURN 

2000 IF XR <> 35 THEN XR = XR + 1 : PLOT 
MR: VR: "IT 5 PLOEIR © 1, YR, * À 

2010 RETURN 

3000 IF YR< > 23 THEN YR = YR + 1 : PLOT 
XR, YR, “I” : PLOT XR, YR- 1, “ ” 

3010 RETURN 

4000 IF YR <> 3 THEN YR = YR - 1 : PLOT XR, 
YR, "I" : PLOT XR, YR +1, " 

4010 RETURN 


11 faut aussi tester la collision de la balle et de 
la raquette. Ajoutez donc la ligne suivante 


160 - IF X = XR AND Y = YR THEN DX =-DX : 
DY = - DY : PING 


Que manque-t-il pour finir ce jeu ? Eh bien la créa- 
tion d'un score qui motivera le joueur. On peut compter 
le nombre de fois que vous avez touché la balle en un 
temps imparti. 

Ajoutez alors à la suite de la ligne 160 : 

SCORE = SCORE + 1 


Ce qui comptabilisera les coups de raquette. 


Il faut aussi compter le temps. On comptera en fait 
le nombre de tours de la boucle REPEAT UNTIL. 


Ajoutez 
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180 TEMPS = TEMPS + 1 

190 UNTIL KEY$ = "S" OR TEMPS = 1000 
200 PRINT “SCORE:", SCORE 

210 END 


Amusez-vous bien à la superballe. 


1.3.2 Ecriture condensée et choix des variables 


Le BASIC de l'Atmos permet certains accommodements 
d'écriture permettant un formalisme plus compact qui ac- 
célère légèrement l'exécution. 


Vous pouvez écrire les instructions et les expres- 
sions sans blancs, mettre plusieurs instructions par li- 
gne, supprimer les REM, supprimer les indices suivant les 
NEXT. 


Tout cela réduit le nombre d'opérations élémentaires 
effectuées par l'interprêteur BASIC lors de l'exécution 
d'une ligne. 


Mais cela entraîne un manque de lisibilité du pro- 
gramme et un risque d'erreur lors de modifications ulté- 
rieures du programme. Il vaut donc mieux ne recourir à 
ces méthodes qu'en dernier lieu, et - de toute façon - 
seulement lorsque le programme est déjà au point. 


Il est préférable également de ne pas utiliser des 
variables sous forme de tableaux indicés qui demandent 
plus de temps pour trouver la valeur correspondant à 
l'indice, que lorsque l'on utilise une variable non indi- 
cée. 


Utilisez de préférence XA, XB, XC que X(1), X(2), 
X(3) ... 


N'oubliez pas que seuls les deux premiers caractères 
sont pris en compte dans le nom d'une variable. Cela fait 
énormément de noms possibles. 


En fait pour obtenir des jeux très rapides et ayant 
beaucoup d'objets en mouvement simultanément, il faut 
écrire vos programmes directement en langage assembleur 
ou au moins certaines parties du jeu. 
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1.4 JEUX DE HASARD ET JEUX DE RÉFLEXION 


1.4.1 Utilisation de RND 


Un jeu est bien morne s'il ne comporte pas une part 
d'inattendu et de surprise apportée par l'intervention du 
hasard. Que ce soit le mélange de cartes à jouer au 
Poker, le lancé des dés au 421, l'arrêt de la bille à la 
roulette, ces événements dirigent le déroulement de la 
partie de manière imprévisible sans que l'on puisse agir 


a 


dessus. Cela suffit à renouveler le jeu constamment. 


Le BASIC permet facilement de créer un nombre dont la 
valeur est calculée au hasard en utilisant la fonction 
RND(1). Voyons cela sur un exemple 


10 REM JEU DE LA FACE MAXIMUM 

20 INPUT “JET DU DE (O/N)" ; M$ 

30 IF N$ <>"O" THEN END 

40 A = INT (RND(1) * 6) + 1 

50 B= INT (RND(1) * 6) + 1 

60 PRINT : PRINT “VOUS AVEZ FAIT UN : “; À 

70 PRINT : PRINT “J'AI FAIT UN : “ ; B : 
PRINT 

80 IF A = B THEN PRINT "PARTIE NULLE" : 
GOTO 20 

90 IF A > B THEN PRINT “VOUS AVEZ GAGNE" 
ELSE PRINT “J'AI GAGNE !" 

100 PRINT 

110 GOTO 20 


Le résultat de RND(1) est un nombre compris entre 0 
et 1, mais toujours inférieur à 1. Tapez 


PRINT RND(1) 


Ce qui est affiché est une nombre “aléatoire” en ce 
sens que vous ne pouvez prévoir quelle valeur sera affi- 
chée, mais cela n'est pas réellement aléatoire au sens 
mathématique du terme. Vous pouvez utiliser RND(1) pour 
générer un nombre aléatoire dans la gamme de variation 
que vous voulez. 


Supposons que vous désiriez obtenir un nombre entier 
compris entre 1 et 6 (comme dans le jeu de dé), en utili- 


sant RND(1), vous obtenez un nombre compris entre 0et 1, 


= 12 = 


en le multipliant par 6 cela donne un nombre compris en- 
tre O et 6 (non compris). 


En prenant la partie entière par la fonction INT, on 
obtient un nombre entier compris entre O0 et 6 (non com- 
pris). Il suffit de lui ajouter 1 pour obtenir un entier 
entre l et 6 (compris). Cela simulera le lancé d'un dé 
non pipé. L'Atmos est honnête ! Cela vous permettra de 
réaliser tous les jeux à base de dés tels le Yam, le 421, 
le Jeu de l'Oie, le Monopoly et bien d'autres. 


On peut toutefois faire mieux encore. Il est possible 
de tirer des lettres, des cartes à jouer, des couleurs, 
de générer une trajectoire au hasard. 


Tapez 
PRINT CHR$S(INT (RND(1) * 26) + 65) 


qui imprime le caractère dont le code ASCII est tiré alé- 
atoirement entre 65 et 90 ce qui correspond aux 26 let- 
tres majuscules de l'alphabet. 


Tapez : 
PAPER (INT(RND(1) * 8)) 


et vous obtiendrez une couleur de fond au hasard. Le pro- 
gramme du Mastermind est un bon exemple de la manipula- 
tion des couleurs. 


On peut tout rendre aléatoire, il suffit de trouver 
une correspondance entre ce que vous voulez rendre hasar- 
deux et un nombre. 


1.4.2 Utilisation des chaînes de caractères 


Dans beaucoup de jeux de réflexion, l'ordinateur at- 
tend votre réponse sous la forme d'un mot ou d'une suite 
de caractères. C'est le cas du Jeu du Pendu ou des jeux 
utilisant des coordonnées pour se déplacer sur un damier 
ou un échiquier. 


L'acquisition de votre réponse se fait par l'intermé- 
diaire d'un INPUT ou d'un GET qui arrêtent le programme 


en attendant une entrée au clavier. 
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Exemple d'entrée de coordonnées 


10 INPUT “QUELLE POSITION (VER,HOR)" ; A$ 
20 X = ASC(LEFTS (A$,1)) - 64 
30 Y = VAL(RIGHTS (A$,1)) 


Cette partie de programme entre les coordonnées d'une 
pièce sur un échiquier. La ligne est repérée par une let- 
tre de À à H, et la colonne par un chiffre de 1 à 8. 


A la ligne 10 on entre au clavier une suite de carac- 
tères dont le premier est une lettre et le dernier est un 
chiffre. Il peut y avoir d'autres caractères entre les 
deux. Il ne peut pas y avoir de virgule, toutefois. 


La ligne 20 assigne à la variable numérique X, une 
valeur calculée à partir de la chaîne de caractères A$. 
En effet, par la fonction LEFT$S(A$S,1), on prend le pre- 
mier caractère à gauche de A$, puis on évalue son code 
ASCII en décimal par la fonction ASC. On soustrait ensui- 
te 64 de manière à se ramener à des valeurs comprises en- 
tre L et 8. 


À la ligne 30, la fonction VAL donne la valeur numé- 
rique correspondant au caractère le plus à droite de A$ 
qui est un chiffre. Notez que la fonction VAL appliquée à 
un caractère autre qu'un chiffre donne la valeur 0, ce 
qui peut être utile pour repérer les erreurs de frappe et 
redemander alors les coordonnées. 


Pour le Jeu du Pendu, il faut vérifier qu'une lettre 
se trouve bien dans le mot secret qu'a tiré l'ordinateur 
dans une table de vocabulaire. 


Supposons que la chaîne de caractères B$ contienne le 
mot à découvrir, on peut effectuer le test de la manière 
suivante 


LO GET AS 

20 FOR I = 1 TO LEN(BS) 

30 IF MIDS(BS$S, I, 1) = A$ THEN PRINT "IL Y A 
UN" ; A$ ; "EN" ; I 

40 NEXT I 


Si4 <= 


A la ligne 20, la fonction LEN permet de connaître le 
nombre de caractères du mot secret. A la ligne 30, la 
fonction MID$ donne le caractère situé à la nième posi- 
tion dans le mot secret et le compare avec la lettre ren- 
trée en 10. 


Dans tous les cas d'entrée de données au clavier, il 
est essentiel que vous protégiez votre programme contre 
les erreurs de frappe, car la poursuite d'un jeu avec des 
données fausses peut être catastrophique. 


Pour cela testez systématiquement les caractéristi- 
ques des valeurs ou caractères entrés pour filtrer les 
valeurs non licites. 


Exemple : 


10 GET A$ 
20 IF A$ < "1" OR A$ > "9" THEN GOTO 10 
30 A = VAL(AS) 


A étant une variable numérique, on ne peut lui donner 
une valeur alphanumérique. Ce qui arriverait si l'on 
avait fait un GET À à la ligne 10 au lieu d'un GET A$ et 
si l'on avait appuyé sur une lettre au lieu d'un chiffre. 


La ligne 20 vérifie si le caractère entré est bien un 
chiffre et ne conserve que ceux compris entre 0 et 9. La 
ligne 30 donne la valeur numérique correspondant au ca- 
ractère entré en 10. 


1.5 UTILISATION DU GRAPHIQUE DANS LES 
JEUX 


1.5.1 Présentation d'un jeu 


Cette partie d'un programme de jeu, bien qu'accessoi- 
re, améliore celui-ci. C'est une introduction qui doit 
présenter le titre et exposer rapidement les règles du 
jeu. On utilisera le mode Texte car il est mieux adapté 
pour l'édition de caractères alphabétiques. Il est facile 
d'imprimer une phrase dans un emplacement quelconque de 
l'écran grâce à la commande PLOT X, Y, ZS. 


X et Y étant les coordonnées de la première lettre de 
la phrase, Z$ étant une chaîne de caractères définie au- 
paravant ou une chaîne de caractères écrite entre guille- 


mets. 
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Pour rendre la présentation plus attrayante, vous 
pouvez colorer les différents messages. Cela peut se fai- 
re facilement grâce à la possibilité de concaténation des 
chaînes de caractères, c'est-à-dire d'accoler bout-à-bout 
plusieurs chaînes entre elles. 


Voyons ce que cela permet. 
Exemple 


10 A$ = CHRS(4) + "Règle" + CHRS(2) + 
"du" + CHR$(1) + “Jeu” 
20 PLOT 2, 13, A$ 


imprimera le message “Règle du Jeu” en bleu, vert et rou- 
ge au milieu de l'écran. 


La chaîne CHR$(4) + place l'attribut encre bleue jus- 
te devant le mot règle. Les autres attributs utilisables 
sont donnés en annexe. 


Vous pouvez décorer cette présentation avec les ca- 
ractères semi-graphiques ou les caractères spéciaux uti- 
lisés dans le jeu. 


Avant le début de chaque jeu, et de chaque changement 
de décor, il faut effectuer un effacement de l'écran. 
Pour cela utilisez CLS en mode basse résolution ou HIRES 
en haute résolution. Cependant, dans ce cas, la couleur 
de l'encre et celle du papier devient noire et blanche à 
chaque fois. Pensez donc à remettre les couleurs désirées 
par un PAPER et un INK. 


Si vous utilisez les différents modes graphiques dans 
un jeu, la définition des couleurs doit se faire à l'in- 
térieur de chaque mode, indépendamment. 


1.5.2 Organisation de la mémoire d'écran 


Votre écran de télévision doit être considéré comme 
une page sur laquelle vous allez dessiner successivement 
l'évolution du jeu. Chaque point visualisé sur l'écran 
est défini dans la mémoire vive de l'Atmos. 


Les caractères et les couleurs sont mémorisés dans 
une zone bien définie que l'on peut adresser directement. 
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Les commandes PRINT, PLOT en basse résolution et CUR- 
SET, DRAW, CIRCLE et FILL en haute résolution évitent de 
se préoccuper de la relation écran-mémoire et permettent 
de travailler avec des coordonnées verticales et horizon- 
tales. 


— Mode basse résolution 


En mode Texte, Lores O et 1, la page écran est divi- 
sée en 28 lignes et 40 colonnes, mais seules les lignes 0 
à 26 et les colonnes 1 à 38 sont utilisables avec les 
commandes graphiques usuelles. En effet, la ligne en haut 
de l'écran est réservée aux messages apparaissant lors de 
l'enregistrement ou de la lecture de programme avec un 
magnétophone à cassette. Elle sert aussi à indiquer le 
mode majuscule pour le clavier par le message CAPS appa- 
raissant en haut à gauche. Pour supprimer ce message, 
disgracieux dans vos décors de jeux, faites : 


PRINT CHR$(20) 


ce qui équivaut à presser [CONTROL] [T] qui inhibe le 
mode majuscule. Pour le faire réapparaître, faites une 
nouvelle fois cette commande. 


Le dessin du curseur clignotant peut être aussi sup- 
primé par [CONTROL] [Q] ou PRINT CHR$(17). 


Les deux premières colonnes servent à placer l'attri- 
but de couleur de papier et celui de l'encre. On ne peut 
écrire dans la première mais un PLOT 1, 10, 3 changera la 
couleur d'encre de la 10ème ligne en vert. Attention donc 
dans les jeux à ne pas faire se déplacer vos mobiles avec 
une coordonnée horizontale inférieure ou égale à 1. Une 
coordonnée dépassant le cadre de l'écran est signalée par 
le message "ILLEGAL QUANTITY ERROR‘". 


Les coordonnées horizontales et verticales repèrent 
une portion de l'écran qui couvre une grille de 6 sur 8 
points élémentaires de l'écran (appelés pixels). Un ca- 
ractère est formé de 48 pixels. Ce bloc de 48 points de- 
mande une seule case mémoire pour être mémorisé en basse 
résolution. La mémoire d'écran en basse résolution est 
donc de 28 x 40 = 1 120 cases mémoire ou octets (appelés 
ainsi car ils contiennent 8 informations binaires élémen- 
taires valant 0 ou 1). 
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Chacune de ces cases peut être remplie par la valeur 
que vous désirez grâce à la commande POKE, par exemple 
POKE 48162,65 met la valeur 65 dans la 48 162ème mémoire 


de l'Atmos qui peut en adresser 65 536 en tout. 


L'effet produit est d'afficher la lettre A (de code 
ASCII 65) à la 3ème colonne de la 2ème ligne de l'écran. 


On peut donc faire apparaître sur toute partie de 
l'écran un caractère ou un attribut graphique si l'on 
connaît l'adresse de la mémoire correspondant à celle-ci. 


Pour déterminer cette adresse, utilisez la formule 
suivante 


adresse en basse résolution = 
48040 + (40 x Y) +2+X 


Y étant la coordonnée verticale, X la coordonnée horizon- 
tale. La colonne couleur papier est trouvée par X = -1, 
la colonne encre par X = 0. La ligne CAPS par Y = -1. 


Pour colorier et encrer les différentes zones de l'é- 
cran, déterminez les cases mémoire où inscrire un attri- 
but. N'oubliez pas qu'un attribut affecte les caractères 
placés à droite de celui-ci jusqu'à ce qu'il trouve un 
autre attribut de même type ou la fin de la ligne. 


Exemple de tracé de décors 


10 PAPER 6 

20 READ J, K 

30 FOR I = 1 TO 5 
40  POKE J, K 

50 NEXT I 

60 DATA 48880,1 


donnera un ciel bleu cyan sur un sol rouge. 


La différence entre le mode Texte et le mode Lores 
est que la mémoire est initialisée dans le premier cas 
avec la première colonne correspondant au papier blanc, 
la 2ème colonne à l'encre noire et les colonnes suivantes 
au caractère vide (code 32), alors que dans le deuxième 
cas la première colonne contient l'attribut papier O0, la 
deuxième encre blanche, et les autres colonnes l'attribut 
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papier noir ce qui fait que les attributs de couleur pla- 
cés n'affectent que les caractères ajoutés juste après, 
et non l'ensemble de la ligne. Pour colorer en Lores, il 
faut donc mettre un attribut dans la case précédant la 
zone à colorier et la remplir de caractères vides pour 
que l'attribut puisse se propager sur la zone. Utilisez 
comme précédemment une boucle FOR NEXT et un POKE. Notez 
que cela demande un certain temps pour être exécuté. 


Pour effacer un caractère sur l'écran, on peut utili- 
ser PLOT X, Y, “ “ ou PLOT X, Y, 32 ou POKE W, 32 (W 
étant l'adresse correspondant aux coordonnées X et Y). 


Le caractère “pavé plein” a comme code 127 et le da- 
mier 126. 


L'ensemble des caractères peut être imprimé en cou- 
leur inverse. Il suffit pour cela d'ajouter 128 au code 
ASCII du caractère considéré. 


Exemple : 


PLOT 10, 10, 193 
ou PRINT CHR$(193) 


imprime un À en inverse. 


Cela est très utile pour avoir des objets en dépla- 
cement de couleurs différentes. C'est en effet plus 
pratique que d'utiliser un attribut placé devant le ca- 
ractère pour modifier sa couleur, car il faut ajouter un 
autre attribut derrière pour rétablir la couleur sur le 
reste de la ligne. Ce qui demande en tout trois cases mé- 
moire et surtout trois emplacements sur l'écran pour un 
seul caractère visualisé. De plus, il ne faut pas écrire 
sur un attribut car cela modifierait son action, ce qui 
est très gênant pour simuler les collisions. 


Les mobiles doivent donc être imprimés en couleur 
d'encre normale ou inverse. Les décors peuvent, eux, être 
colorés par attribut s'ils ne se trouvent pas sur la tra- 
jectoire des mobiles. Cela vous amènera donc à dessiner 
votre terrain de jeu avec des zones de mouvements et des 
zones de décors et de messages (score par exemple). 
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La plupart des jeux peuvent être réalisés en basse 
résolution mais pour obtenir des graphiques plus fins, le 
mode haute résolution offre de plus grandes possibilités, 
bien que plus délicat à utiliser surtout pour imprimer 
des textes. 


— Mode haute résolution 


11 doit son nom au fait que l'on peut modifier, pixel 
par pixel, le contenu de l'écran. On obtient ainsi une 
définition de 240 sur 200 points, plus 3 lignes de texte 
en bas de l'écran. Comme en basse résolution l'écran est 
mémorisé en mémoire mais cela demande beaucoup plus de 
place car il faut une case mémoire pour un groupe de 6 
pixels seulement au lieu de 48 en basse résolution. 


Il y a donc (200 x 240) + 3 x 40 = 8 120 cases mémoi- 
re. La correspondance entre adresse de la mémoire et 
coordonnée se fait selon la formule : 

40960 + (Y x 40) + X 


Y étant la coordonnée verticale (de O0 à 199). 


X étant le numéro de la colonne de 6 points considé- 
rée (de 0 à 39). 


La mémoire s'étend donc de 40 960 à 49 119. 
Exemple d'utilisation de la formule : 


La case mémoire où est stocké le point de coordonnées 
125, 120 est en : 


124 = 6 x 20 + 4 donc X = 20 Y = 120 


L'adresse cherchée est en 40960 + (120 x 40) + 20 = 
45780 


120 124,122 123 124 125 


mémorisé en un octet en 45780 
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Une case mémoire peut contenir l'information pour 6 
points ou un attribut. 


128 64 32 16 8 4 2 1 


représente 
une série de 
6 points 


motif visualisé 


si à Len 1 = encre 
inverse 0 = papier 


Calcul de la valeur à mettre dans la mémoire pour obtenir 


le motif désiré : somme des nombres au-dessus de la case 
si la case est à 1. 


nu EL 


en couleur normale donne 
64 + 32 + 8 + 2 = 106 


Si l'on fait POKE 45780,106 on obtient le motif à partir 
de la coordonnée 120, 120. 


Codage d'un attribut en haute résolution : 


inverse si 1 code binaire de l'attribut 


On voit que l'on retrouve les mêmes codes qu'en basse 
résolution pour les attributs. 


Le programme suivant vous montrera la définition en 
couleur maximale que l'on peut obtenir. 
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20 K= 16 

30 FOR I = 40960 TO 49120 
40 K=K+1 

50 POKE I, K 

60 IF K = 23 THEN K = 16 
70 NEXT I 


Chaque case de la mémoire d'écran est remplie avec un 
attribut de couleur de fond qui change à chaque case. Il 
en résulte, sur l'écran, une multitude de petits segments 
de couleurs différentes. 


Pour imprimer un caractère en mode haute résolution, 
et donc pour faire mouvoir les mobiles d'un jeu, il faut 
utiliser la commande CHAR N, M, FB qui imprime sur l'é- 
cran à partir de la position précédente du curseur, le 
caractère de code ASCII N, choisi dans le jeu normal (M = 
0) ou alterné (M = 1), avec la couleur d'encre (FB = 1), 
avec celle du fond (FB = 0), en inverse (FB = 2) ou n'im- 
prime rien (FB = 3). Cette dernière possibilité peut être 
intéressante pour faire une impression conditionnée par 
la valeur FB. La position du curseur n'est pas modifiée 
par cette commande. On voit que l'on ne peut afficher 
qu'un seul caractère à la fois. 


Pour des mobiles plus grands (composés de plusieurs 
caractères), il faut utiliser une boucle FOR NEXT. 


Exemple d'impression de texte en haute résolution : 


10 A$ = "SCORE :": N = 6 : X = 10 : Y = 100 
20 GOSUB 30 

30 FOR I = 1 TON 

40 CURSET X + I * 8, Y, O 

50 CHAR ASC (MIDS(AS$, I, 1)), O, 1 

60 NEXT I 


En ligne 40, il faut découper le mot à afficher en 
tranches d'un caractère. 


Pour chaque message ou mobile composé, faites exécu- 
ter un sous-programme semblable à celui-ci. 


N est la longueur du mot. 
X et Y les coordonnées de la première lettre. 
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Pour effacer un caractère, il faut imprimer le même 
caractère avec FB = O donc en couleur de fond ou imprimer 
le caractère plein (code 127) en FB = 0. 


1.5.3 Les caractères graphiques sur Atmos 


Tout jeu visuel demande l'utilisation de caractères. 
L'Atmos a des possibilités très variées dans la forme des 
caractères utilisables. 


A la mise en route, l'Atmos charge en mémoire vive 
deux jeux de caractères. Le jeu standard contient les 
caractères alphabétiques, les chiffres et la ponctuation. 
Le jeu “alterné” contient, lui, les caractères graphiques 
basse résolution utilisés pour le réseau télématique 
Prestel en Grande-Bretagne. Ils conviennent très bien 
pour délimiter les limites d'un terrain de jeu, car ils 
sont formés d'une mosaïque de rectangles élémentaires. 


— Codage des caractères PRESTEL 


Le motif de base de ces caractères est illustré à la 
figure A. Il comprend six rectangles formant un grand 
rectangle de la taille d'un caractère normal. Chacun des 
sous-rectangles peut être noirci selon le code du carac- 
tère. 





Fig. À : Motif de base d'un caractère Prestel 
19 
Pour trouver ce code, tracez le caractère désiré sur 


le motif et faites la somme des nombres contenus dans les 
sous-rectangles noircis. 
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Exemple 





Fig. B 
1+2+4+16 + 32 = 55 


Pour obtenir le code, il faut ajouter 32 à ce nombre 
pour avoir le code ASCII utilisable. 


Pour faire apparaître le caractère correspondant, 
pressez [ESC] [I] (ce qui met en place le mode semi-gra- 
phique pour les caractères suivants de la ligne) puis 
pressez la touche dont le code ASCII vaut le code que 
l'on vient de calculer. Ici on a 55 + 32 = 87 qui est le 
code ASCII de la lettre "W". Pressez [W] et il apparaît 
le caractère dessiné à la Fig. B. 


Essayez, pour d'autres codes, de trouver la touche 
correspondante. Si au cours d'un programme, vous désirez 
faire apparaître ces caractères spéciaux, vous pouvez 
faire comme ceci 


PRINT CHRS(27) + “IW" 
Cela fera apparaître le caractère de Fig. B. 
27 est le code ASCII de la touche [ESC]. 
1 peut être remplacé par d'autres attributs selon que 
l'on veut faire clignoter, changer l'encre ou le papier 
sur le reste de la ligne. On doit faire un CHR$(27) pour 


chaque attribut. Les caractères qui suivent I sont pris 
dans le jeu “alterné". 
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— Caractères personnalisés 


Malgré le double jeu de caractères de l'Oric, cela 
peut vous sembler insuffisant et peut-être désirez-vous 
utiliser d'autres caractères spéciaux. Si vous désirez un 
trèfle, un carreau, un pique et un coeur pour visualiser 
un jeu de cartes, c'est possible. 


En effet, il est possible de redéfinir tous les ca- 
ractères de l'Oric car ils sont définis dans la mémoire 
vive que vous pouvez donc modifier par programme. 


C'est très utile pour créer vos personnages et vos 
mobiles dans les jeux. Vous obtiendrez ainsi de très 
beaux graphismes et donnerez une touche professionnelle à 
vos jeux. 


Pour redéfinir un caractère, commencez par dessiner 
une grille de 6 sur 8 cases. Puis dessinez à l'intérieur, 
le motif que vous désirez. Noircissez les cases où passe 
un trait. 


Après quelques essais, vous obtiendrez un mtif cor- 
respondant à la forme désirée. 


Exemple : définition d'un monstre. 


ligne 1 





ligne 8 
Fig. C : Dessin du motif du caractère à définir 
Chaque caractère demande 8 places en mémoire corres- 


pondant aux 8 lignes de la grille. 


LE 


Pour trouver le contenu de ces mémoires, faites la 
somme des nombres contenus dans les cases noircies pour 
chaque ligne. 


ESA AE 


Pour notre exemple cela donne 


ligne 1 : 16 + 2 = 18 

ligne 2 : 8 +4 = 12 

ligne 3 : 32 + 16 + 8 + 4 + 2 + 1 = 63 
ligne 4 : 32 +8 + 4 + 1 = 45 

ligne 5 : 8 + 4 = 12 

ligne 6 : 16+2 = 8 

ligne 7 : 32 + 16 + 2 + 1 = 51 

ligne 8 : O 


Il reste maintenant à déterminer à quelle adresse de 
la mémoire il faut ranger ces valeurs. Dans la mémoire 
vive de l'Oric, une zone est réservée aux définitions des 
caractères. Cette zone commence en 46 080 et s'arrête en 
47 999. les caractères sont rangés dans l'ordre croissant 
de leur code ASCII par suites de 8 nombres (dans l'ordre, 
ligne 1 à 8). Les caractères standard étant définis avant 
les caractères “alternés” (voir table de correspondance 
entre code ASCII et emplacement en mémoire dans l'an- 
nexe). Pour modifier un caractère (par exemple &, ©), |; 
qui sont peu usités et qui ont comme code ASCII 94, 95, 
96), faites une série de POKE dans les adresses données 
en annexe (46080 + (code ASCII du caractère x 8) + numéro 
de la ligne concernée pour un caractère standard et 47104 
+ (code ASCII du caractère x 8) + numéro de la ligne pour 
un caractère “alterné"). 


Exemple de sous-programme type effectuant le change- 
ment de caractère : 


5 REM * DEFINITION DE CARACTERE 


10 READ J 

20 FOR I = O TO 7 

30 READ K 

40 POKE J+I, K 

50 NEXT I 

60 DATA 46600, 18, 12, 63, 45, 12, 18, 51, O 
70 RETURN 
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Ce sous-programme peut être utilisé pour d'autres ca- 
ractères en modifiant la première valeur du DATA. 


Vous trouverez de nombreux exemples de caractères 
ainsi définis dans le jeu des envahisseurs de l'espace. 


Pour vous aider dans la définition de caractères spé- 
ciaux, voici un programme très utile et pratique permet- 
tant de dessiner un motif de caractère et d'obtenir 
ensuite les valeurs à mettre dans le DATA du sous-pro- 
gramme DEFINITION DE CARACTERE. 


Pour l'utiliser, pressez les touches [G] pour gommer 
la prochaine case, [espace] pour noircir la prochaine 
case, les flèches pour déterminer la position de la pro- 
chaine case. 


Le dessin du caractère apparaît en grand sur l'écran. 


Modifiez-le jusqu'à ce que vous soyez satisfait de la 
forme obtenue puis tapez [F] pour obtenir les DATA cor- 


respondant au dessin. 


Le programme vous demandera quel caractère doit être 
modifié. Vous pouvez taper la touche correspondant au ca- 
ractère ou bien entrer le code ASCII pour les caractères 
qui ne sont pas sur le clavier. Faites RETURN ensuite. 
Attention pour le code ASCII, veillez à ne rentrer que 
les chiffres correspondants du code sinon les valeurs ob- 
tenues ne seraient pas bonnes. De toute façon le program- 
me vous donne le code avec lequel les calculs ont été 
faits. Choisissez ensuite le jeu standard ou alterné et 
vous obtiendrez les résultats. 


Notez que les valeurs des adresses données ici, cor- 
respondent au mode TEXTE et qu'elles ne sont pas les 
mêmes en haute résolution. Cela n'a pas d'importance car 
si vous définissez vos caractères avant de faire un HIRES 
les mémoires seront automatiquement modifiées lors du 
passage en haute résolution. 


10 REM * AIDE A LA DEFINITION DES 
CARACTERES SPECIAUX * 

20 X= 16 : Y = 10 : CLS 

30 PLOT X, Y, 64 

40 GET K$ 
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150 
160 
170 


180 
190 
200 
210 
220 
230 
240 


260 
270 


280 


290 


300 
310 
320 
325 
330 
335 
340 
345 
350 
355 


IF K$ = CHR$S(32) THEN A$ = CHRS(127) 

IF K$ = "G" THEN AS = CHRS(32) 

IF K$ = “F" THEN GOTO 120 

IF K$ <CHR$(8) OR K$ > CHR$(11) THEN 
GOTO 40 

ON ASC (K$) - 7 GOSUB 320, 330, 340, 350 
PLOT X, Y, AS 

GOTO 40 

PLOT 2, 20,"QUEL CARACTERE VOULEZ VOUS 
DEFINIR ? " 

INPUT B$ 

IF LEN (B$) > 1 THEN B = VAL(BS) : GOTO 
160 

B = ASC (B$) 

PLOT 2, 22, "CODE ASCII" : +STRS(B) 
INPUT "STANDARD(S) OU SEMI-GRAPHIQUE(A)" 
3 C$ 

IF C$ = “S" THEN N 
IF C$ = "A" THEN N 
GOTO 160 

X = 16 ; Y 
FOR LI=OT 
FOR J=OT 
IF SCRN(X + I, Y + J) = 127 THEN D(J) 
D(J) + 2T(5 - I) 

NEXT J, I 

PLOT 2, 23, "VOICI L'ADRESSE DE DEBUT ET 
LES DATA" 

PLOT 2, 24, STRS(N + B * 8) : FOR I = O0 
TO 7 : PLOT 8 + I * 4, 24, STRS(D(I)) : 
NEXT I 

INPUT “VOULEZ VOUS DEFINIR UN AUTRE 
CARACTERE " ; C$" 

IF C$ = “O" THEN RUN 

END 

IF X - 1 > 15 THEN X = X - 1 

RETURN 

IF X + 1 <22 THEN X 
RETURN 

IF Y + 1 <18 THEN Y 
RETURN 

IF Y —- 1 >9 THEN Y = Y - 1 
RETURN 


46080 : GOTO 210 
47104 : GOTO 210 


0 


© H 


1 
5 
7 


© 


(l 
x 
+ 
rm 


[l 
< 
+ 
— 


Pour retrouver les caractères normaux, vous pouvez 
appuyer sur le bouton de Reset qui se trouve sous l'appa- 


reil. 
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Si vous trouvez que les caractères sont trop petits, 
vous pouvez en accoler plusieurs pour former un plus 
grand motif. Définissez alors chaque caractère selon le 
motif qui est recouvert par la taille de ce sous-carac- 
tère. Un bel exemple de ce procédé est visible dans le 
jeu Cavalier. 


1.5.4 Terrain de jeu et déplacement 


Après avoir choisi le mode de définition qui vous 
semblera le mieux adapté au jeu, dessinez sur une grille 
(voir annexe) représentant l'écran, les décors et la zone 
d'évolution des mobiles. Fixez l'emplacement des messages 
(score, temps limite, instructions, etc). Si vous voulez 
avoir plusieurs couleurs sur l'écran, prenez garde à 
laisser un espace vide devant chaque début de zone à co- 
lorer, cela pour pouvoir y placer l'attribut assurant le 
coloriage. Etudiez bien les limites du terrain de jeu. 
Grâce à la grille vous déterminerez les coordonnées de 
chaque partie de l'écran ainsi que l'emplacement en mé- 
moire de celle-ci. 


Pour planter le décor, utilisez une série de POKE 
pour placer les attributs de couleurs ou de choix de jeu 
de caractères. 


L'ordre dans lequel vous l'effectuez doit être étudié 
car cela peut donner un curieux effet. 


Exemple 


10 PAPER 2 
20 N= 48452 

30 FOR I = 1 TO 10 

40 POKE N + I * 40, 17 
50 POKE N + 5+I * 40, 18 
60 NEXT I 


Ce programme trace un rectangle de 5 sur 10 caractè- 
res en rouge sur fond vert. 


Tel qu'il est écrit, vous constaterez à l'exécution 


qu'il fait apparaître des bandes rouges fugitives sur 
l'écran. Il est facile de l'éviter, en permutant l'ordre 
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des lignes 40 et 50. En effet, la ligne 40 met un attri- 
but rouge qui affecte donc toute la ligne après lui. La 
ligne 50 met un attribut vert qui rétablit la couleur du 
fond. La présence de cet attribut vert arrête l'effet de 
l'attribut rouge. Donc, si l'on place l'attribut vert au- 
paravant, l'attribut rouge n'agira que sur 5 caractères. 


En prêtant attention à ces détails, vous obtiendrez un 
décor qui s'établira sans traînée sur l'écran, ce qui est 
tout de même plus satisfaisant esthétiquement. 


1.6 UTILISATION DES POSSIBILITÉS SONORES 


Avec le générateur de sons programmable incorporé à 
l'Atmos, la création de bruitages devient un jeu en lui- 
même. 


La plupart des jeux demandent une sonorisation pour 
renforcer le réalisme des décors ou pour marquer l'évolu- 
tion de la partie en cours. Les tirs de projectiles sont 
accompagnés d'un SHOOT retentissant, ou d'un ZAP sidéral, 
les collisions ou les cibles touchées résonnent d'un EX- 
PLODE, les différentes manches des matchs sont annoncées 
par des PING. Tout ces bruitages ne doivent pas être con- 
sidérés comme décoratifs mais au contraire faire partie 
intégrante du jeu. Ils doivent donc être peu nombreux car 
leur cumul les rend inopérants et fatigants. Donc les 
sons ne seront utilisés que lors de modifications du dé- 
roulement du jeu pour signifier ces changements au joueur 
qui réagira à leur signal. L'effet de surprise est à re- 
chercher, et il est bon d'avoir un bruit spécifique à 
chaque mobile. L'Atmos permet la création de sons origi- 
naux et variés. 


1.6.1 Sons prédéfinis 
Avec les commandes PING, ZAP, EXPLODE, SHOOT, l'Atmos 
couvre la grande majorité des bruitages pour jeux d'ac- 


tion. 


Utilisez-les donc souvent car l'effet obtenu est ga- 
ranti. 
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Ces sons ressemblent beaucoup à ceux des jeux du com- 
merce. On peut créer de nouvelles possibilités avec ces 
sons prédéfinis en les répétant successivement de manière 
rapide. 


Par exemple : 


10 FOR I = 1 TO 10 


20 PING 
30 WAIT 10 
4O NEXT I 


donne l'effet d'une cloche de voiture de pompiers d'au- 
trefois ou signale l'immersion d'un sous-marin. 


Essayez aussi avec ZAP. 


1.6.2 Sons préfabriqués 


Le générateur de sons possède trois canaux indépen- 
dants et un générateur de bruits qui peuvent être mélan- 
gés aux autres sons. La puissance du son (l'amplitude de 
la tension de sortie) peut être modulée par sept formes 
d'enveloppe dans l'instruction PLAY (TE, NE, EM, EP). EM 


valant 


1: D 1 ou 2 donne un son de durée 
finie dont l'amplitude monte 
2°: | rapidement puis baisse lente- 
ment (1) et inversement (2). 
La durée du son dépend de la 
période d'enveloppe EP. 


Pour EM valant de 3 à 7 le son est continu, 
33 MQNRRARN: 3 et 6 sont équivalents à L et 
2 mais en se répétant. 
& : NSP 
2: SJ 
6 : AANNA 
T1 7 


ee 


La fréquence du son émis est programmée par un MUSIC 
ou un SOUND. La note ou la période étant définie par un 
nombre, elle peut être une variable BASIC et donc ainsi 
permettre la modulation de fréquence par variation de la 
période dans une série de SOUND répétés. 


Exemple 


10 REM * SIRENE AMERICAINE * 


20 N = 100 
30 DN = 1 
40 REPEAT 
50 REPEAT 


60 N=N + DN 
70 SOUND 1, N, 10 
80 UNTIL N = 120 OR N = 80 


90 DN = - DN 

100 UNTIL KEY$ = CHR$(32) 
110 SHOOT 

120 END 


Ce court programme crée une variable N qui croît de 
80 à 120 puis décroît de 120 à 80 et ainsi de suite. N 
étant le paramètre période de la ligne 70, celle-ci est 
modulée et passe du grave à l'aigu puis au grave imitant 
ainsi le son des sirènes de voitures de police américai- 
nes. 


Essayez d'autres valeurs de N ou de DN et du test li- 
gne 80. La ligne 100 arrête le son en appuyant sur la 
barre d'espacement. 


Beaucoup de bruits de moteurs peuvent être imités en 
utilisant le générateur de bruits. 


Par exemple l'ambiance de la cabine d'une caravelle : 


10 REM * CARAVELLE * 
20 SOUND 4, 10, O 
30 PLAY 1, 1, 7, 0 


La ligne 20 autorise le mélange canal 1 et bruit. La 
période de 10 donne un son aigu et perçant imitant les 
turbines des réacteurs. Le son est produit par la ligne 
30. Le paramètre de période d'enveloppe est à O pour 
avoir le son à sa hauteur normale sans modulation d'amp- 
litude. L'enveloppe 7 est choisie pour avoir un son con- 
tinu. 
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Si l'on module l'amplitude du bruit, on peut obtenir 
le bruit d'une machine à vapeur. 


10 REM * LOCOMOTIVE * 
20 SOUND 4, 100, 0 


30 PLAY 1, 1, 3, 200 


A la ligne 30, une augmentation du dernier paramètre 
ralentit la cadence. 


Pour signaler le rebond d'une balle sur les limites 
du terrain, il serait bon de faire entendre un “CLOP". 


Faites 
CALL # FB14 


et vous entendrez le son émis par une pression sur une 
touche du clavier mais sans toucher celui-ci. On exécute 
en fait un sous-programme de la ROM BASIC de l'Atmos. 


1.7 UTILISATION DU LANGAGE MACHINE POUR LES 
JEUX 


1.7.1 Le langage machine : pour quoi faire ? 


Les jeux du commerce parmi les plus attrayants sont 
écrits en langage machine. A priori, il semble donc inté- 
ressant de l'utiliser. Avant toute chose, définissons ce 
que l'on entend par langage machine. 


1.7.1.1 QUELQUES DEFINITIONS 


Le micro-ordinateur Atmos possède une unité centrale 
— le microprocesseur 6502A - qui est l'organe de commande 
de la machine. Le microprocesseur est un composant élec- 
tronique numérique qui traite des données composées de 
huit informations binaires (bit) : un octet. Son fonc- 
tionnement est dirigé par un programme contenu dans la 
mémoire, qui est composé d'une succession d'instructions 
de base. Il s'agit, par exemple, de transférer des 
données vers la mémoire, d'effectuer des opérations élé- 
mentaires (de type addition d'octets, soustraction, comp- 
lément) ou de test, et de brancher vers d'autres portions 
de programme. Chaque instruction est codée en un certain 
nombre d'octets. 
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L'instruction LDA#$1, qui transfère la valeur numéri- 
que l dans le registre accumulateur du microprocesseur, 
est codée A901 en notation hexadécimale. L'ensemble de 
ces codes compose le langage machine. On voit que le code 
est propre à chaque type de microprocesseur, et qu'un 
programme écrit pour un type de machine ne peut être 
transporté sur un autre type de machine sans de profondes 
modifications. 


Qu'ils soient représentés en notation binaire ou en 
hexadécimal, les codes machine (ou codes opératoires) ne 
sont pas facile à apprendre et à retenir. Chaque code est 
alors associé à un groupe de trois lettres appelé mnémo- 
nique, qui est une contraction de la définition de l'ins- 
truction, et qui permet une mémorisation plus aisée du 
jeu d'instructions (d'où son nom de mnémonique !). Par 
exemple, LDA est la contraction de “load accumulator” 
(charger dans l'accumulateur). 


L'ensemble de ces mnémoniques, ainsi que la syntaxe 
qui s'y rapporte, forme le langage d'assemblage. Le pro- 
gramme, appelé assembleur, transforme un programme-source 
écrit en langage d'assemblage en code machine qui peut 
être exécuté. 


Ce livre étant consacré à la programmation des jeux 
et non à l'apprentissage de l'assembleur (ce qui néces- 
siterait plusieurs volumes), nous vous conseillons de 
vous reporter aux ouvrages spécialisés si vous désirez 
approfondir le sujet. Le manuel de l'Atmos comporte un 
chapitre qui est une introduction intéressante à l'as- 
sembleur du 6502, et donne la liste des codes opératoires 
utilisables. 


1.7.1.2 INTERET LUDIQUE DU LANGAGE MACHINE 


Après ces quelques définitions et une présentation 
(hâtive, il est vrai !) de l'assembleur, voyons mainte- 
nant ce que l'on peut en faire, et les bénéfices que l'on 
peut en attendre vis-à-vis du BASIC lors de la programma- 
tion de jeux. 


Le BASIC, langage interactif et interprété, est fa- 
cile d'emploi. Mais cela se paie par une lenteur à l'exé- 
cution, particulièrement sensible et dommageable pour les 
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jeux d'action. Le langage machine, utilisant les instruc- 
tions propres de l'unité centrale, permet d'obtenir le 
maximum de rapidité. 


Hélas, ses instructions sont rudimentaires et les 
structures de données inexistantes. Le confort et la sou- 
plesse du BASIC sont perdus. Il est possible, avec peu 
d'instructions BASIC, de réaliser l'édition de textes et 
de dessins sur l'écran - ce qui demande un long programme 
en le langage machine. 


Pour l'amateur, l'utilisation du langage machine doit 
donc être réservée aux situations critiques où la rapidi- 
té d'exécution est exigée. C'est le cas notamment lors de 
déplacements de mobiles sur l'écran, et lors de la prise 
en compte de commandes de déplacement à partir du clavier 
ou des poignées de jeux (dans ce dernier cas, c'est même 
indispensable, car le BASIC n'en prévoit pas l'utilisa- 
tion). 


Cependant, l'intérêt du langage machine ne se limite 
pas aux jeux d'action. Les routines de stratégie des jeux 
de réflexion, quand elles sont complexes, gagnent beau- 
coup à être écrites en assembleur : qui ne s'est pas 
impatienté à attendre la réponse de son adversaire aux 
échecs ! 


1.7.2 Mixage du BASIC et du langage machine 


La solution de bon sens est de “couper la poire en 
deux" : un programme sera composé d'un tronc commun écrit 
en langage évolué (BASIC), appelant des sous-programmes 
écrits soit en BASIC, soit en langage machine selon la 
rapidité exigée. Ce moyen terme permet de profiter des 
avantages de l'un et de l'autre tout en minimisant les 
inconvénients. 


Pour mélanger le BASIC avec le langage machine, l'At- 
mos dispose de trois instructions bien pratiques qui per- 


mettent l'appel de sous-programmes en langage machine à 
partir d'un programme écrit en BASIC. 


* Tout d'abord l'instruction ! : 


L'adresse du sous-programme en code machine doit être 


“35 


placée en # 2F5 et # 2F6 par un “DOKE 2F5,adr". adr est 
l'adresse où est implanté le début du sous-programme. 
L'appel à cette routine se fera en pressant la touche [!] 
puis la touche [RETURN] en mode direct, ou en incluant ! 
dans une ligne de programme, tout comme une autre ins- 
truction BASIC. Le code machine devra bien sûr avoir été 
chargé préalablement. 


Le cas échéant, vous pouvez faire suivre le ! de tous 
les paramètres dont a besoin le sous-programme. Celui-ci 
devra alors disposer du contrôle de la syntaxe et du dé- 
bordement des paramètres. Ceux-ci sont accessibles dans 
une zone de mémoire tampon située entre les adresses # 35 
et # 84. A vous d'écrire la prise en compte des paramètres 
selon votre application. Une autre méthode de passage des 
paramètres est décrite plus loin. 


* La fonction & : 


Elle est semblable à la précédente. L'adresse de dé- 
part de la routine en langage machine est située cette 
fois-ci en # 2FC. "&” est assimilable à une fonction BA- 
SIC, et à ce titre doit être suivie par un paramètre 
entre parenthèses. Ce paramètre est mis dans l'accumula- 
teur de calcul en virgule flottante, qui est situé entre 
#DO et # D5. Pour son utilisation, reportez-vous au manuel 
de l'Atmos. A la fin du sous-programme, le contenu de 
l'accumulateur “flottant” est transféré dans la variable 
d'appel de & : X=&(1) passe 1 dans l'accumulateur flot- 
tant et retourne la valeur de celui-ci après exécution 
dans X. 


La façon la plus simple d'appeler une routine en lan- 
gage machine est d'utiliser l'instruction CALL suivie de 
l'adresse de départ de la routine. Cette instruction est 
l'équivalent pour le langage machine du GOSUB utilisé 
pour les sous-programmes en BASIC. Le passage de paramè- 
tres n'est pas prévu, et devra être effectué au préa- 
lable. Simplement, une zone de mémoire commune au BASIC 
et au sous-programme machine peut être définie. Avant un 
CALL, on chargera les cases mémoire utiles par une série 
de POKE, et en retour une série de PEEK permettra le pas- 
sage inverse vers le BASIC. 
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Pour implanter le code machine en mémoire, l'utilisa- 
tion d'un sous-programme chargeur de code machine s'avère 
être la manière la plus simple et la plus sûre. On pourra 
utiliser par exemple le sous-programme suivant : 


20000 REM * CHARGEUR DE CODE MACHINE * 
20010 FOR I=1 TO N 

20020 READ CMS 

20030 FOR J=1 TO 8 

20040 K=K+1 

20050 POKE K, VAL("H"+MIDS(CM$S,J*2-1,2)) 
20060 NEXT J 

20070 NEXT I 

20080 RETURN 

20100 DATA “2078EBC95AFOOFC9" 


Lors de l'appel au sous-programme 20000, il faudra donner 
au préalable la valeur de k = adresse début du code -1 et 
de N = nombre de lignes de DATA contenant le code. Chaque 
ligne de DATA contient une chaîne de 16 caractères, qui 
sont les codes en hexadécimal du programme mis bout à 
bout (voir jeu Pickman). 


Voici un conseil qui vous évitera bien des énerve- 
ments : n'oubliez pas de faire une sauvegarde sur casset- 
te magnétique systématiquement après chaque modification 
que vous apporterez à un programme, et cela avant d'en 
lancer l'exécution. En effet, une faute de frappe dans 
les données du chargeur de code machine se traduit à coup 
sûr par un “plantage” de l'Atmos, et l'obligation de dé- 
brancher l'appareil pour le remettre en état de fonction- 
nement, ce qui vous fait perdre votre programme. 


1.7.3 Développement d'un programme en langage machine 


L'écriture et la mise au point d'un programme en lan- 
gage machine sur l'Atmos pose quelques problèmes, le 
principal étant que l'Atmos n'est prévu à l'origine que 
pour fonctionner en BASIC. Pour remédier à ce défaut, il 
y a deux solutions. 


Premièrement, vous êtes courageux et plein de bonne 
volonté. Vous décidez alors d'écrire et de coder vos pro- 


grammes en code machine “à la main", à l'aide des tables 
de correspondance fournies avec le manuel de l'Atmos. Une 
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fois ce cryptage fastidieux et délicat (calcul des bran- 
chements relatifs) effectué, il vous faut entrer le code 
en mémoire, par exemple en utilisant le chargeur donné 
précédemment. Il ne reste plus qu'à tester le programme. 
Et c'est alors que les vrais problèmes surviennent... 


Si vous ne disposez pas d'un moniteur de mise au 
point, il est pratiquement impossible de faire tourner un 
programme de taille correcte. Ceci constitue cependant un 
excellent exercice pour le débutant, et sur de petits 
programmes. 


La sagesse vous fera donc préférer la deuxième solu- 
tion, qui est de vous procurer, auprès de votre détail- 
lant Oric, une cassette contenant un moniteur-assembleur 
pour Atmos. 


Voici la méthodologie qui a été employée avec succès: 


— écrire le programme en BASIC de façon structurée 
pour tester la validité des algorithmes choisis et 
sans se préoccuper de la rapidité de l'exécution ; 

— transposer les routines critiques en langage d'as- 
semblage ; 

- utiliser l'assembleur pour implanter le code machi- 
ne en mémoire ; 

— tester le code grâce aux fonctions d'exécution pas 
à pas et trace du moniteur ; 

— recopier le code mis au point dans les DATA du 
chargeur de code machinne ; 

— tester ensuite le programme complet BASIC + code 
machine. 


1.7.4 Quelques routines utilisables pour les jeux 
* Déplacement de mobiles sur l'écran 


En BASIC, la position d'un caractère affiché sur l'é- 
cran peut être définie à l'aide de deux paramètres, X et 
Y, respectivement la coordonnée horizontale et la coor- 
donnée verticale. Dans le cas du langage machine, il est 
plus simple et mieux adapté d'utiliser l'adresse de la 
mémoire écran contenant le caractère en question. Cette 
adresse est codée sur 16 bits (ou deux octets). 
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Un déplacement horizontal d'une position correspond à 
l'ajout ou à la soustraction d'une unité à l'adresse. En 
revanche, un déplacement vertical correspond à l'ajout ou 
à la soustraction de 40 (ou 28 en hexadécimal) à l'adres- 
se. Nous devons donc écrire deux routines fondamentales, 
qui sont une addition et une soustraction de 8 bits sur 


16 bits. 
— Addition 


X pointe sur le poids faible du nombre de 16 bits. 
Y pointe sur le nombre de 8 bits à ajouter. 


Le résultat est replacé à l'emplacement du nombre de 16 
bits. 


Notez bien que cette addition est spécifique au pro- 
blème posé et à la structure de donnée suivante : 


X = (0) 
) Adresse avant déplacement 


1 


2 Poids faible 
) Adresse après déplacement 


3 Poids fort 
Y 4 Déplacement relatif à l'horizontale : dx 

5 Déplacement relatif à la verticale : dy 
ADD CLC 

LDA $02,X 

ADC $0004,Y 

LDA $03,X 

ADC #$00 

STA $03,X 

RTS 


Dans le jeu Pickman cette routine est implantée en # 9896. 


— Soustraction 
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SUB SEC 
LDA $02,X 
SBC $0004,Y 
STA $02,X 
LDA $03,X 
SBC #$00 
STA $03,X 
RTS 


Elle est implantée en # 98A5. 


Toujours tirée du jeu Pickman, voici la routine de 
calcul du déplacement de Pickman. Elle est située en 
#986F. Selon les valeurs dx et dy, elle retourne dans les 
mémoires 2 et 3 l'adresse après déplacemet du Pickman. 
Quand Y=0, le calcul s'effectue avec dx, et quand Y=1 le 
calcul s'effectue avec dy. 


Si le bit de poids le plus fort de dx ou de dy est à 
1, le déplacement est négatif et il faut soustraire la 
valeur absolue de dx ou de dy. Dans l'autre cas, il faut 
additionner. 


986F DEPL LDY H$00 
9871 LDA $0004,Y 
9874 BEQ  $988B 
9876 BMI  $9883 
9878 AND #$7F 
987A STA  $0004,Y 
987D JSR 59896 
9880 CEC 

9881 BCC  $988B 
9883 AND #7F 
9885 STA  $0004,Y 
9888 JSR $98A5 
988B LDA  #$00 
988D STA  $0004,Y 
9890 INY 

9891 CPY  #$O2 
9893 BNE $9871 
9895 RTS 


* Adressage des touches du clavier 


Le seul moyen dont vous disposez actuellement pour 
dialoguer avec votre micro-ordinateur est son clavier. 


s À0 = 


L'appui sur une touche est détecté par l'unité centrale 
lors de l'exécution de la routine de scrutation clavier 
(routine située au # F495 dans la ROM de l'Atmos). Cette 
détection se fait de la manière suivante : 


- Chaque touche possède un numéro de groupe et 
une adresse dans son groupe. 
— Le microprocesseur envoie ces deux codes au clavier 
par l'intermédiaire du GSP (AY8912) et du VIA 
(6522) ; si la touche correspondante est enfoncée, 
le clavier envoie un signal au microprocesseur. 


Le tableau ci-joint donne pour chaque touche les deux 
codes cités ci-dessus. 


Code des touches du clavier 


6 | 7 8 9 | 4 = \ 
FD|FE |FE |FD|FB 7F | BF 
2 10 7 3 7 7 3 
DEL FUNCT 
BF |7F | F7 | FB FE FD Fa pe 
1 6 | 6 1 
SID|FIG RETURN! SHIFT 
BF |7F|F7|FB FD Fe FE FD FB 2. . 
6 1 1 6 
ZIXI[ICIVIBINIM 
BF FB|FD|FE 
4 216012 
| Space , 1.|tT|- 
FE FD|FB|F7|7F 
4 4 4 4 | 4 


E inscription sur la touche 
numéro de groupe F7 
6 
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adresse dans le groupe 


site 


Revenons à la routine de scrutation clavier. Celle-ci 
est exécutée périodiquement (la période peut être lue et 
modifiée à l'adresse #24F). Les différentes tâches se dé- 
roulant séquentiellement sont : la gestion de l'auto- 
repeat, la recherche d'une touche appuyée dans le cas où 
il n'y a pas auto-repeat, et la génération du code ASCII 
correspondant à la touche détectée. Ce déroulement impose 
certaines contraintes : si une touche reste enfoncée, 
l'appui sur les autres ne sera pas détecté ; dans le cas 
où il n'y a pas auto-repeat, la scrutation des touches de 
fait dans un ordre fixé (la priorité croît avec le numéro 
de groupe, et dans chaque groupe elle croît avec l'adres- 
se de la touche ; les touches [FUNCT], [CTRL] et [SHIFT] 
sont traitées séparément). 


Pour passer outre ces quelques contraintes, il faut 
adresser la touche voulue sans passer par cette routine. 
Nous ne pourrons donc plus utiliser à cet effet les ins- 
tructions BASIC. L'adressage des touches devra se faire 


directemet en langage machine. 


Voici un exemple de routine permettant de remplir 
cette fonction. 


0400 78 SEI 
0401 A6 00 LDX $00 
0403 A9 OE LDA H$OE 
0405 20 90 F5 JSR  $F590 
0408 A5 O1 LDA  $01 
040A 09B8 ORA  HSB8 
040C 8D 00 03 STA  $0300 
040F AO 04 LDY  #H$04 
0411 88 DEY 

0412 DO FD BNE  $0411 
0414 AD 00 03  LDA $0300 
0417 29 08 AND #H$08 
0419 85 00 STA  $00 
041B 58 CLI 

041C 60 RTS 


Avant d'être appelées, les mémoires $00 et $01 doivent 
respectivement contenir le numéro de groupe et l'adresse 
dans le groupe de la touche à adresser (voir tableau des 
codes). Après l'exécution de cette routine, l'utilisateur 
pourra savoir si la touche adressée était enfoncée en li- 
sant le contenu de la mémoire $00 (0 = touche non appuyée 
et 1 = touche appuyée). 
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Vous pourrez utiliser cette routine, par exemple, de 
la manière suivante 


— Implantez la routine en mémoire aux adresses $400, 
$41C. 


— Ecrivez le programme BASIC suivant : 


10 POKE 00, # DF 

20 POKE O1, # 06 

30 CALL #400 

40 IF PEEK(00)=1 THEN PING 
50 WAIT 10 

60 POKE 00, # F7 

70 POKE 01, f 05 

80 CALL #400 

90 IF PEEK(00)=1 THEN ZAP 
100 WAIT 10 

110 GOTO 10 


— Faites RUN. 


— Appuyez sur [A], vous entendrez PING, et ceci tant 
que vous ne lâcherez pas cette touche. 


- Lâchez [A] et appuyez sur [P], vous entendrez une 
succession de ZAP. 


— Enfoncez maintanant les deux touches [A] et [P] 
simultanément, et maintenez-les enfoncées : vous 
entendrez alors PING, puis ZAP, puis PING ... La 
notion de priorité telle qu'elle était imposée par 
le BASIC n'apparaît plus. 


- Arrêtez le programme en faisant [CTRL] [C]. 
En vous basant sur cette routine, vous pourrez en 
écrire d'autres aussi intéressantes pour la programmation 


de jeux. 


Vous trouverez un autre exemple dans le jeu Chase. 
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CHAPITRE 2 


Jeux 
de hasard 


2.1 ALPHABET 


A comme Ananas, B comme Banane, C comme Citron, ... 
L'alphabet est l'une des premières choses que l'on nous 
apprend lorsque nous arrivons sur les bancs des écoles 
communales. Mais il ne suffit pas d'apprendre. Il faut 
aussi retenir. Nous vous proposons dans ce jeu un test 
qui vous permettra d'exercer votre mémoire. Le principe 
est le suivant : une lettre apparaît sur l'écran, il faut 
alors taper la touche correspondante pour pouvoir conti- 
nuer. Si la touche appuyée est la bonne, deux lettres 
sont alors affichées, la première étant identique à la 
précédente. La seconde étant nouvelle, vous devez alors 
taper dans l'ordre ces deux lettres. Si aucune erreur 
n'est commise, la suite des lettres réapparaît et une 
lettre y est rajoutée... Ce jeu peut être très long si 
vous avez une mémoire infaillible, ou très court si vous 
ne faites pas un effort de concentration suffisant. 


Le programme que nous vous proposons fera marcher vo- 
tre machine comme répétiteur. Celle-ci générera la suite 
de lettres et comptabilisera le nombre que vous aurez 
retenu. Les touches de clavier utilisées sont évidemment 
celles marquées par une lettre alphabétique. 
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REMARQUE : L'utilisation fréquente de ce programme 
vous apportera une meilleure connaissance de l'empla- 
cement des touches sur le clavier. 


Structure du programme : 
Lignes 9 à 20, présentation. 
Lignes 30 à 42, choix du niveau. 
Lignes 110 à 310 boucle principale. 


Lignes 312 à 350 sortie du programme. 


Lignes 360 à 390, affichage nombre de lettres retenues. 


GO REM  RÉREMRARMMHIUX 

10 REN + SLPHABET +# 

11 REM HH#HEHERERRUREEX 

13 DE X{25),Y(28),C(TE) 

15 El 

lé PRINTCHRS (17) 

20 FRINTET 4, TS CHARS C4) +CHRS (27) 4JALFH 
ABET'ACHRS (4j 

20 PRINTEZ, 105 NIVEAUX DES DIFFICULTE 


mu 


33 PRINTSFRINTS 1: FAIBLE" 

36 PRINT:FEINTS Ze: MOYEN‘ 

57 PRINT: FRINT" JG: FORT" 

36 PRINTEZ, 235: INFUT'QUEL NIVEAU CHOI 
SISSEZ VOUS'IRS 

40 IF ASCIR#I<A49 OR ASC(RE) 251 THEN G 


L'ÉRE) ASUS 





150 X CH) =INT CESSRND (LD) D 4Z 
60 YH)=INT CLE#RND (1) ) +241 
170 C(H)=INT C26#RND (1) +65 
180 FOR Isi TO K 
RINTEX (1), Y CT) FCHR# (4) 4CHRS (27) + 
MU4CHRS (CCI) +CHPS (4 





ENT 


200 A=INTC7#RND (171) 
S10 INEA: FAFERT-A 
250 WAITNI 
10 CLS 
5 24F 
245 NEXT I 
50 INEO 
280 FOR Iei TO E 
270 GET KR$ 
275 FING 
280 IF RSESCHRS(C(I)) THEN GOTO 360 
290 IF KE&=25 THEN FRINT'EBRAVOIT! QUELLE 
MEMOIRE FHENOMENALE" 
300 NEXT I 
310 UNTIL K=25 
HIT PRINTES,105"La bonne solution eta 
its": PRINT 
JIS FORTS=ITOZ: FRINTCHRS (CCI) "ss NE 
TI: PRINT 
220 FRINTEZ,235: INPUT'VQULEZ VOUS REC 
OMMENCER  (CO/NI"SRS 
FIQ IF R$e"0" THEN CLS: GOTO 29 
340 PRINT'FIN" 
350 END 
F0 IF RÉSCHRE (85) OR RSSCHRS (90) THE 
NI=l-1: GOTO 39G 
F70 FRINT:FRINT'VOUS AVEZ RETENU "ik 
15" LETTRES": IE: 2=F 
360 KeïS 


390 GOTO 2:60 
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2.2. JACK-POT 


Votre porte-monnaie est bien rembourré ? Alors vous 
pouvez continuer la lecture de cette page, car nous en- 
trons ici dans le domaine des machines à sous où la pas- 
sion du jeu l'emporte sur la raison. Ce bandit manchot, 
comme il est appelé dans l'ouest américain, comporte 
trois fenêtres dans lesquelles peut apparaître un chif- 
fres de O0 à 9. Pour jouer, misez 5 francs en pressant la 
touche "OO". Les combinaisons gagnantes sont celles qui 
font apparaître trois chiffres identiques (le gain est 
croissant avec ce chiffre) ou celles qui font apparaître 
deux chiffres identiques seulement (le gain est alors 
évalué aléatoirement et est moins élevé que précédem- 
ment). 


L'activité lucrative des machines à sous étant inter- 
dite, l'Atmos vous prêtera en début de partie un pécule 
de 100 F. A vous de le conserver si vous pouvez résister 


à 


a l'attrait du gain. Comme toute bonne attraction 
d'argent, la machine est truquée et statistiquement elle 
finit toujours par vous faire dépenser au-delà de vos 
moyens. 

Dès que vous lancez le programme, la machine tire 
une première série de chiffres. Après il vous faudra 
presser la touche "O" pour la relancer. 

En route pour Las Vegas ! 


Structure du programme 


Les lignes 90 à 140 assurent le tirage de la série de 
chiffres. 


La ligne 160 teste l'égalité des trois compteurs. 


La ligne 165 teste l'égalité de deux compteur seule- 
ment. 


Les lignes 170 à 190 décomptent vos économies et tes- 
tent si la ruine survient. 


Les lignes 200 à 230 augmentent vos économies et cal- 
culent vos gains. 


49" 


Les lignes 240 à 300 relancent ou terminent la partie 
en cours. 


Le sous-programme de 1000 à 1110 assure l'affichage 
du Jack-Pot. 


Le sous-programme de 2000 à 2040 affiche les séries 
de chiffres dans les fenêtres du Jack-Pot. 


Les sous-programmes de 3000 à 3040 et de 4000 à 4040 
assurent l'animation de la poignée du jackpot. 


5 REM HER 

10 REM # JACK POT +# 

LS REM as 

20 PAPERS: INEZ: CLS: POREHZGR, 10 

39 NC=û 

40 TTel00 

30 GOSUE 1000 

&n Leo 

70 Meû 

BG N=0 

85 GOSUE4000 

90 FORIS=ITOiI0 

100 LeINT(RND (I) #10) 

110 MEINT (END (1)#10) 

120 N=INT (KRND (1) #10) 

1310 GOSUBZOGC 

14 NEXTI 

145 GOSURIGOC 

150 FING 

160 IFLEMANDMENTHENZÉF: ZAF: GOTO200 
165 IFLEMORLENORMENTHENL = 1: GOTOZ0G 
170 FLOT S,29,'"MHelas,vous avez perdu 
3 francs!" 

185 TT=TT-5 

190 IF TT£1 THEN GOTO 270 ELSE GOTO 2% 
0 

200 FLOT 5,20,'"Vous etes chanceux,fel 
icitation" 
210 TTETTHSHINT ÉRND (1 #L #25) 
230 FLOT %,22,"Vous avez encore"+STR# 
TTi+" francs en poche * 
230 NCENC+1 
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240 FLOTE, 24, "Voulez vous rejouer (O/N 
17" 

245 GET ÀA$ 

259 IF A$="0" THEN GOTO 60 

260 CLS:END 

2706 FLOT 2,22,'"Vous avez tout dilapid 
e en"+STRS$ (ND) +"coups" 

275 SHOOT 

280 NC 

290 TTeidG 

300 GOTOZ45 

1000 PRINTEIZ, 735 MARIE! 

1919 FOR I=i TO 6 

1030 PRINTEIZ, 7415 "% # # #" 
1930 NEXT I 

1040 PRINTEIS, LT MERE EP 
1050 FRINTEIS, 33 CHRS (43 +CHR$ (27) 4+"JJA 
CE-FOTU+CHRS (4) 

1060 PRINT, 145 MR |! 
1070 FRINTE11,1S3"#l0J03ETiCJE3L3#si" 
1980 PRINTEI 1,165 "#CIL ICT ESC CIx" 
1090 PRINT@I1, 175 MERERERERERENREE! 
1100 FPRINTEIZ, 195 C&"GPC (11) "#4" 

1110 RETURN 

2000 PLOTISZ, 10, STR$ (Li) 

2010 PLOT1I7,10,STRE (M) 

2020 FLOTE1,10,STRS CN 

2030 CALLEFEI4 
2040 RETURN 
2000 FORI=1TOE 
2010 PRINTEZ7, 14-13 "0" 
SOC PRINTEZ7,1S-Ismi" 
2030 NEXTI 
2040 RETURN 
4900 FORI=1T08 
4010 PRINTEZ7,S+I3" " 
4020 PRINTEZ7, 6+15 "0" 
4030 NEXTI 
4049 RETURN 










=. 51 = 


2.3 SIMON 


Bleu, jaune, rouge, magenta... non ce n'est pas un 
arc-en-ciel qui va apparaître devant vos yeux, mais tout 
simplement une suite de couleurs qu'il vous faudra mémo- 
riser. Combien de ces couleurs pourrez-vous retenir ? 
Pour le savoir, il vous suffit de mettre en route le pro- 
gramme. À chaque fois, un nombre croissant de bandes co- 
lorées apparaîtront sur l'écran. Il vous suffira alors de 
rentrer, dans l'ordre d'apparition, le code de la couleur 
enregistrée. 


Les codes utilisés sont : 


Rouge : 1 Bleu : à 
Vert : 2 Magenta : 5 
Jaune : 3 Cyan : 6 


Le jeu comporte trois niveaux, la cadence d'appari- 
tion croît avec le niveau. De plus chaque couleur est 
agrémentée d'un son, ce qui vous facilitera la tâche. 
Dans ce dernier but, chaque bande colorée apparaîtra avec 
son code sauf au niveau 3. Un signal sonore "“PING" vous 
indiquera le moment où il vous faudra rentrer les codes. 
Si l'une des touches autre que 1 à 6 est enfoncée, la ma- 
chine vous préviendra grâce à un son "ZAP", il vous faut 


« 


alors continuer à rentrer les codes. 

Attention : si la suite de codes rentrés est bonne, 
la machine recommence de suite une autre séquence, alors 
pas de moment d'inattention ... A vous de jouer. 

REMARQUE : Contrairement au “Simon” classique la sé- 

quence est renouvelée à chaque fois, ce qui rend le 


jeu bien plus difficile. 


Pour sortir du programme, appuyez sur un mauvais 
code. 


Structure du programme 
Lignes 9 à 30, initialisations. 
Lignes 40 à 60, choix du niveau. 


Lignes 110 à 300, boucle principale. 


6922 


Lignes 310 à 340, sortie, fin. 


Lignes 400 à 430, validation code de couleur. 


CA 


SR 
10 
11 
1= 
1é 
20 
N'°+C 
40 
CULT 
42 
44 
46 
48 
SISS 
30 
GOT 
äQ 
li 


120 


130 


135 


140 
159 
160 
185 
166 
167 
168 
169 
170 
180 
190 
200 
210 
220 

Q 
240 
250 
260 
270 


EN LELSSESESS 
REM + SIMON + 
REM HHRERHEH MAX 
DIM Ci 
CLS Os PAPERO 23 INET 
FRINTCHRE (17) 
FRINTELA, TS CHERS (4) 4+CHRS (27) 4+8JSTMO 
HRE (4 
FRINTEZ, 93: PRINTUNIVEAUX DES DIFET 
cou 
PRINT: PRINT j2FAIBLE" 
PRINT: PRINT Zi: MOYEN 
PRINT: PRINT ZT: FORT" 
FRINTEZ, 225: INPUT'QUEL NIVEAU CHOT 
EZ VOUSFEHS 
IF RSCCHRS (40) OR KSSCHRS (Si) THEN 
Û 48 
NT=-VBL (RS as 

INEC 

E=0 


et eee 2 


E=k+1 

FOR I=i TO K 

CEI)=INT (7#RND(1))+1 
PRINTCHRS (27) +CHRS (C CI) +80) : 

IF NI550 THEN FRINTOHRS (C (I) +48) ; 
SOUNDI,15*#C(1),5 

WAIT NI 

FRINT : PRINT 

NEXT I 

FING 

CLS 

FOR I=i TO K 

GETRS 

IF R$£ECHRS(C(I) +48) THEN GOTO 40 


PRINTCHES (27) +CHR$ (CT) +80) 
FRINT 

SOUNDI,15#C(D0,5 

WAIT Eû 


= 5%: 


hi THEN FRINTPIC DE LA MIRA 
AI RECONNU 








UNTIL E=5Q 

a INF 

D PRINT: INPUTOVQULEZ VOUS RECOMMENC 
(CRD USERS 

U OIF Ré=tQ" THEN CLS: GOTO 46 

Q FRINT'FIN" 

END 





Fri 
LA “1 Le 


HE CHRS (409) OK RÉECHRS (SES) THE 
iGOTO 450 





410 PRINT: PRINT'VOUS AVEZ RETENU "3K- 
11" BARETTES COLOREES" 

415 ZAP 

420 I=K :K=50 

430 GOTO 290 
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CHAPITRE 3 


Jeux 
d'adresse 


3.1 MUR DE BRIQUES 


Un mur de briques multicolores se dresse devant vous. 
A l'aide de trois balles et de deux raquettes, vous devez 
le détruire brique par brique. Profitez des rebonds. 


Si la balle dépasse la ligne des raquettes, elle est 
perdue. Essayez de totaliser un maximum de briques dé- 
truites. Si vous réussissez à détruire totalement un mur, 
un second se reconstruit aussitôt pour que vous puissiez 
continuer la partie. 


La raquette est déplacée par les touches fléchées 
droite et gauche. 


Structure du programme 

Lignes 20 à 40, initialisations des variables. 
Lignes 50 à 90, tracé des limites du jeu. 
Lignes 100 à 230, tracé du mur et des messages. 


Lignes 300 à 470, double boucle imbriquée gérant le 
comptage des balles et le déroulement de la partie. 
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Lignes 340 à 350, testent s'il y a une demande de 
déplacement. 


Ligne 360 teste si la balle arrive sur le mur. 


Lignes 370 à 380, testent si la balle arrive sur les 
limites du terrain ou sur la raquette. 


Lignes 390 à 430, déplacement de la balle, testent si 
la balle sort du terrain. 


Lignes 1000 à 1040 et 3000, sous-programme redéfinis- 
sant le caractère de la balle. 


Lignes 1500 à 1550, comptabilisent les briques dé- 
truites et les effacent de l'écran. 


Ligne 2000, sous-programme qui assure le déplacement 
de la raquette. 


14 REM aie RE EE 

15 REM # MUR DE BRIQUE # 

lé FEMME RIOER EEE 

16 FOFERTÉA, HO 

20 GOSUE 1000 

25 GOSUB4CGCO 

20 Bel: TPeû: PAPERO: INEé: CLS 
35 PORERZAE, 2: POREH2AF, 2 

49 XReÏ 7: YR=ST: KH=z 

30 REM + Trace du jeu *% 

&0 FOR I= 
7G READ E, 
80 FOFE EF 
90 NEXT I 
100 REM XTrace du mur *# 

110 FOR Is4 TO ZSS:FLOT I,ZS,SS4:NEXT I 
120 FOR I=4 TO Z2£:PLOT 4,17,254:PLOTIE 
s La Sr NEXT I 

130 FOR IeS TO S:FLOTI,ZS,Z2S4sNEXT I 
140 FOR I=27 TO Za:PLOTI, 22,254: MNEXT 
I 

150 FOR I=48285 TO 48445 STEF 40 

160 FOR J=I TO I+26 

170 POKEJ, 127 

18 NEXTJ,I 
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190 
200 


210 


290 
220 
290 
500 
310 


320 





340 
330 


NE IS 
FLOT21,1,"NE DE BALLEG:"+STR$& (EH) 
FLOTS,1,"NE DE BRIQUES: "4STRS(EQ) 


FLOTI,24, "TEMPS: MASTRS (TP) 
FLOTÉR, YRRE 

REM #EBoucles pincipales *% 
REPFEAT 

YB=18:DXel: DY=-1 

REFEAT 


0 TP&TF+ 1: PLOT7, 24, STR$ (TP) 


ES=EEYS$ 
IF ÉSeCHRS (IS) OR Eé&=CHRS (9) THEN 


GOSUR 2060: GOTOS45 


3650 


IF SCRNCXE+DX, YH+DYV)=127 THEN GOT 


0 1500 


370 


IF SCRNCXB4DX, YR+DV)=2E4 BND (YE+D 


Y=SORVE+DY=22) THENDY=-DY 3: CALLHFE14 


380 


IFSCRN CXR4DX, VE+DV) = 254 THENDX=-DX 


: CALL#FE14 


90 
400 
410 
#0 
Data) 
240 
450 
460 
470 
490 
Ni" 
490 
500 
310 
4F,n: 
320 
390 
1000 
1610 
1920 
10E0 
1040 
1490 
1500 
1510 
1550 


PLOTXE,YE," " 
XB=XE+DX 

YREYB+DY 

FLOTXE,YE,"L" 

UNTIL YRS?5 

B=B- 1: EYPLODE 

FLOTYE, YE," " 

FLOT34, 1,STR#(E) 

UNTIL B=0 

FLOT4,25, "VOULEZ VOUS REJOUER? (0/ 


GET A$ 

IF A$="0 THEN EUN 

IF ASE"N" THEN FOFEHSAE, 27: POKE#2 
END 

GOTO490 

REM * Def caracteres *# 
FOR I=46808 TO 486815 
READ J 

POFET, J 

NEXT I 

RETURN 

REM + Brique detruile +# 
FLOTXE+DX, YE+DY," " 
DY=-DY: FING 

BO=RCQ4 1 
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Li 


NA=NE- 
i 


En 
ñ 











ï XR= 
FLOTXE, VR, ES 


RETURR 








RETLIEN 

DATA 0,12, 30, 0,12, 

DATA G61,%2,49261, 1,48221,2,48% 
BAT, SE, BAT, 7 

US Hi. 49040, 21, 48060, 1,4 
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3.2 BARON DE MUNSCHAUSEN 





Ce jeu retrace un des périples les plus connus de la 
vie du baron légendaire. Au cours d'une de ses innombra- 
bles batailles, il a chevauché un boulet de canon durant 
le trajet qui le séparait des lignes ennemies. Vous devez 
aider le baron à réaliser cet exploit hors du commun. 
Vous êtes canonnier et vous vous tenez prêt derrière vo- 
tre pièce d'artillerie. 


Par votre grande expérience de la balistique, le ba- 
ron vous a choisi pour orienter le tir. Il faut que le 
baron se pose sur la façade de la forteresse des oppo- 
sants. S'il atterrissait à l'intérieur de celle-ci, il 
risquerait d'être pris par vos adversaires et sa mission 
échouerait. 


Pour régler la trajectoire de l'obus et de son passa- 
ger de fortune, vous devez choisir la charge de poudre à 
mettre dans le fût ainsi que la hausse du tir. Celle-ci 
doit être un nombre entier positif et inférieur à 89. 
Elle représente l'angle du fût par rapport au sol. 


Fort heureusement, le baron a plus d'un tour dans son 


sac, et même s'il ne réussit pas à atteindre la muraille, 
il peut revenir au canon pour essayer de nouveau. 


La taille de la forteresse ainsi que sa position va- 
rient aléatoirement au début de chaque partie. 
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Structure du programme 


Les lignes 100 à 110 fixent les dimensions et la po- 
sition de la forteresse. 


Les lignes 120 à 150 assurent le choix de la charge 
de poudre. 


Les lignes 160 à 200 permettent de fixer la valeur de 
la hausse. 


Les lignes 210 à 290 calculent la vitesse initiale et 
le paramètre de la trajectoire de l'obus. 


Les lignes 300 à 340 calculent la trajectoire. 


Les lignes 340 à 390 assurent le déroulement de la 
fin du jeu. 


Les lignes 1000 à 1030 et 4000 sont le sous-programme 
de redéfinition des caractères. 

Les lignes 2000 à 2080 dessinent la forteresse et le 
canon. 


Les lignes 3000 à 3080 dessinent le baron sur sa tra- 
jectoire. 


Les lignes 5000 à 5110 jouent un air de musique bien 
connu. Notez la méthode de codage des notes. 





110 VYR=ISS9-INT (BND (1) 450410) 

115 GOSUR 2000 

120 FRINT'Charge simplie({l) ,double(zlo 
u triple(s)?" 

150 GET A$ 

140 IF A$:"I" OR ABETI THEN GOTOQ 155 
150 R=g24+RxVAL (AE) 

160 INFUT'Hausse en degres"sA$ 

170 FOR I=1 TO LEN(AS) 

180 IF MID#(A#,I.1)<"0" OR MIDE(AS, I, 
L)EQU THEN GOTO 165 

190 NEXT I 

195 IF VAL(A#)'EO OR VAL(AS) +989 THEN G 
OTA 160 

200 A=VAL (AS) 4#C. OL74STS 

210 VX=R4«CDS (A) 

220 VY=R#GSIN (A) 

230 YM=VY®2/19,62 

240 IF YMÿ181 THEN PRINT'Hausse trop 
forte,recalculez!":G0T0 iéü 

260 X=20:V-169 

270 E=4,9/VX"2 

280 C=-TAN(A) 

290 D=189 

295 EXPFLOPE 

200 REFEAT 

305 IF X5XR+S AND YEVR4Z2 THEN SHOOT: 
PRINT'AIE!":WAITISO:GOTO 126 

310 IFY:191 OR X:231 THEN GOTOI20 
315 GOSUE 5000 

320 X=X+5 

Z50 Y=(Bx(X-20)+0)#(X-20) +0 

340 UNTILYSYR-6ANDYEVR+6ANDXEXR-6ANDX 
EXR+6 

350 PRINT'"Bravo,le baron est dans la 
forteresse" 

360 GOSURSOTO 

370 INPUT'VOULEZ VOUS REJOUER": Z$ 

380 IF 2$="0" THEN GOTO 30 

390 END 

1000 FOR I1=46840 TO 46855 

1010 READ J 

1020 POFE I,J 

1030 NEXT I 

‘1940 RETURN 

2000 CURSETXR-6, YF, 1 

2010 FILL200-YR, 2,63 

2020 CURSETXR+6, YR+6, 1 
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2030 FILLI94-VR, 39-—INT (XR/6) ,44 
2040 CURSET26, 189, 1 

2050 DRAW-7,5, 1 

2060 CURSET17,195, 1 

2070 CIRCLE4, 1 

2080 RETURN 

1000 CURSETX, Y, 

205 CHAR9S, G, 1 

2010 CURMOVO, -8, 0 

020 CHAR96, 0, 1 

o CURSETXP, YF, 1 

140 CHARSS, 0, O 

350 CURMOVO, -8, 0 

3060 CHAR96, G, © 

3065 CURSETXF, YF, 1 

3070 XPeX:YP=Y 

2080 RETURN 

1000 DATA 56,57,62,18,58,19,0,0,0,0,0 
.24,60,74, 16,60 

SO00 REM + MUSIQUE FOUR LE BARON 
5010 READEI$ 

5020 READC1$ 

5030 FORI=1T014 


d040 MUSICI, 4, ASC (MNIDS (HIS, 1)}-64,10 













La 





S060 WAITIASCIMIDSICLS, 1})-46)#450 
5070 FLAYO,0,0,0 

2680 NEXTI 

3090 RETURN 

100 DATAMEEFHHFECAACEEC" 

Si10 DATANIIIIALIILILIZE" 


ss. Ch.= 


3.3 MISSILE GALACTIQUE 


Pourquoi donc cette planète désolée intéresse-t-elle 
tous les vaisseaux hostiles qui veulent atterrir pour 
s'emparer des lieux ? C'est un mystère pour vous. De tou- 
te manière ce n'est pas votre problème, vous devez suivre 
les ordres du commandement suprême sans en chercher les 
motifs. Vous êtes l'ultime sentinelle au front, vous 
devez interdire l'accès à la planète. Pour cela vous 
disposez d'un arsenal ultra-moderne de missiles ultra- 
sophistiqués. Ils sont munis d'une tête chercheuse qui 
fait que ces missiles font mouche à tout coup. Encore 
faut-il que l'ordre de tir soit donné au bon moment, 
c'est-à-dire quand un missile est disposé dans le silo de 
tir. L'ordre peut être alors validé par l'ordinateur cen- 
tral dirigeant l'organisation du poste de tir. Le missile 
peut alors partir et ne laisse aucune chance à l'adver- 
saire. 


Et l'homme dans tout cela ? Il est indispensable car 
la machine n'est pas habilitée à ordonner le tir. 


Pour donner cet ordre, pressez la touche d'espace- 
ment. Le jeu comporte trois niveaux de jeu modifiant la 
vitesse de déplacement du pas de tir, et la durée de mise 
en fonction des missiles. 


La séance de tir est limitée à la durée de votre tour 
de garde. 


Ne décevez pas les espoirs qui sont mis en vous. 
Défendez ardemment votre planète. 


Structure du programme 


Lignes 20 à 170, présentation du jeu et initialisa- 
tions. 


Lignes 180 à 220, dessin du sol de la planète et co- 
loration de l'écran. 


Lignes 230 à 250, dessin du ciel étoilé. 
Lignes 260 à 270, impression des messages de score. 


Lignes 280 à 380, double boucle imbriquée qui compte 
le temps et assure le déplacement du pas de tir. 
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Ligne 320, teste si l'ordre de tir est donné. 


Ligne 350, autorise le déplacement des vaisseaux. 


Lignes 390 à 450, fin du jeu. 


Lignes 1000 à 1040 et 4000 à 4060, définition des ca- 
ractères spéciaux représentant les vaisseaux et le mis- 


sile. 


Lignes 2000 à 2130, sous-programme de tir. Interdit 
le tir si le missile n'est pas prêt (compteur G inférieur 


au temps F dépendant du niveau). 


Lignes 3000 à 3040 : déplacement des vaisseaux par 


rotation de la chaîne de caractères 
ajout d'un nouveau vaisseau. 


5 KREM LLLLSÉS SEE SELS EE EST T TS 

10 REM * MISSILE GALACTIQUE + 

15 REM ROM MONO RUN 

20 CLS:PAFER 3:1INE O:PRINTEHRS (20) : CH 
F$(17) 

30 GOSUE 1000 

40 FOR I=1 TO 15 

50 AS=AS+CHRS (LOO4ZINT (RND (1) #10) )+" 
&ü NEXT I 

70 FLOT 2,6,12 

80 FLOT10,6,"MISSILE GALACTIGUE" 

90 PLOTZ2,10,"QUEL NIVEAU CHOISISSEZ V 
QUS" 

100 PLOTS,12, "1: DEBUTANT" 

110 FLOTS, 14, "2:ENTRAINE" 

120 PLOTS, 16, "3: CHAMPION" 

130 GET Et 

140 IF E${"1" OR E$:"2" THEN GOTO 120 
150 DX=VAL(ES) /1.5+1 

169 F=3+VAL(E#) 

170 CLS 

180 PAPERO: INEG 

190 FOR 1=1 TO 6 

200 READ J,K 

210 FOFE J,K 

220 NEXT I 

230 FOR I=i TO 50 
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les contenant et 


#4 PLOT RND1)#36+1,RND(I) #20," 
NEXT I 
D TPesoii Mel: XCeiGs VOS: YTel:G=0 


270 FLOT 1,25, "TEMPS: ":PLOT 24,25, "SC 


REFEAT 
3 REFEAT 

XC=kC+DXx 
FLOT XC,YC,® no ï 
220 IF KEYS=CHRS(CE2) THEN GOSUE 2000 
HO TPeTF- 1e TRSESTRS (TR s PLOTII-LENCT 
FH) ,25,71F# 

340 NeN+isGeG+] 

350 IF N=iS THEN GOSUR 3600 

360 UNTIL XC:30 OK XC£4 CR TF=û0 

370 DX=-DX 

390 UNTIL TF=û 

290 POFE 489160, INT (END (1) #6+1) 

400 PLOT 3,10, "PARTIE TERMINEE" 

410 FLOT 3,127, VOULEZ VOUS REJQUER? (O0 
4H)" 

15 PRINTCHRS (20) 3 CHARS (17) 

420 GET E$ 

450 IF Eg$="0" THEN RUN 

440 IF E$="N" THEN END 

450 GOTO420 

990 REM * Def caracteres speciaux +* 
1000 FOR I=448860 TO 46985 

1010 READ J 

2020 FOKET,J 

1050 NEXT I 

1040 RETURN 

1990 REM x TIR * 

2000 IF G£F THEN RETURN 

2010 ZAFP 
à SNESCRNEXC+E, YT) 
HIIO Ge 

2040 IF SN+110 OR SN<IOCG THEN RETURN 
2080 FOR Izi TO YE-YT 

2060 FLOTXCHS, VC-I-1,"p" 

2070 PLOTXCHS, YC-I,® 

2078 TFeTFe le TRÉSSTREITE) : FLOTII--LEN( 
TFEI,25, TPS 

2080 HEXT I 

2090 EXPLODE 

2100 PLOTXCHI,YT-I, UN 








Gr -= 


2110 ASSLEFTEUCAS, XC-1) 4" MHRIGHTE(AS, 
A0 #0) 

2120 SC=SC+SN-95: FPLOTEC, 35, STRS (60) 
SZ RETURN 

2990 REM +# Depl cible *# 

5000 Neû 

2010 FINS 

FO0 Az" MACHRS CINT CRD (13 #10) 4100) + 
LEFTSCAS, 28) 

ZOO PLOTA, YT,AS 

3040 RETURN 

4000 DATAN,732,16,40,31,40,16,232,60, 16 
a 00 Don ds 16 60, 0 

4510 DATA 56,22,2%4,52,30,15,28,0,12,2 
Le ds Os ddseés le, 0 

40205 DATA 20,28,8,28,6%,8,65, 20,48, 32 
:20,47,20,32,48,0 

40ES DATA 42,8,29,62,26,8,42,0,18,467, 
45, 65, LT, 18,35,18 

4040 DATA 32,40,58,30,53, 20, i13,56,20, 
65, 43, 83,3,15,9,27 

AUSQ DATA 1,1,1,5.7.7.18,97,0300s2 
23.48,5é6,14 

4080 DATA 8,8.9.9,9,9,20,42 

4670 DATA 481é60,3,49000,17,49040,17,4 
9680, 17.497041,7,40961,5 
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3.4 BRACONNIER 


"Alors ! le gibier ? Beaucoup, beaucoup trop. Les 
lièvres sont très prolifiques cette année et, si cela 
continue, les cultures risquent d'être endommagées. Dom- 
mage que la chasse ne soit pas encore ouverte ..." 


Voilà des propos que vous avez surpris ce matin, 
alors que vous sirotiez votre pastis à la terrasse du ca- 
fé. Ils vous reviennent à l'esprit par cette soirée de 
pleine lune, et incitent vos instincts de braconnier à 
remonter en surface. La science des collets est un art 
que vous dominez depuis fort longtemps. Le matériel ras- 
semblé, la gibecière en bandoulière, vous vous lancez en 
rase campagne en quête de ces rongeurs destructeurs. Vo- 
tre but : poser le plus de pièges possibles. Votre tacti- 
que : repérer les traces de ces rongeurs, et poser un 
nombre de collets proportionnel à la densité des traces. 


Attention bien sûr de ne pas mettre les pieds dans un des 
collets déjà posés. Prenez garde aussi à regagner votre 


domicile dans les délais imposés par votre femme, celle- 
ci étant très jalouse, son courroux pourrait être grand 
lorsque vous reviendrez. 


Vous pourrez vous déplacer en utilisant les quatre 
flèches. Les traces citées seront symbolisées par un 
chiffre : si vous passez sur ce chiffre vous poserez un à 
un autant de pièges que le chiffre indiqué. Les collets 
posés seront indiqués par des "*". Un "ZAP" vous indique- 
ra le moment où il vous faudra rejoindre votre véhicule, 
regagnez-le dans les plus brefs délais. Surtout, ne re- 
passez pas sur vos pièges. Bon braconnage. 

Structure du programme 

Lignes 9 à 95, initialisations. 

Lignes 99 à 200, dépôt des pièges. 

Lignes 209 à 370, retour. 

Lignes 399 à 470, sortie chiffres. 

Lignes 499 à 530, affichage pièges. 


Lignes 599 à 710, déplacement braconnier. 


ENT 


9 K 
iÿ 
ii 
19 
20 
F0 
40 
TE] 
cat 
&0 
5 
70 
80 
85 
87 
38 
où 
92 
95 
99 
106 
105 
119 
ii5 
120 
THEN 
122 
124 
126 
130 
140 
THEN 
130 
155 
1860 
170 
18û 
Di) 
190 
195 
200 
209 
210 
220 


230 


EM  HERERERERRMRREX 
REM + HRACONNIER + 
REM RARE EE 
REM +% Initialisations * 
CLS: DX=û: DY=0 
PAPERS » INEÉ 
FLOTIS,2S, "FIEGES FOSES=" 
FOR I=i TO 2 
READ K 
FOR Jz=G T0 7 
REBD L 
POFEE+J, 
NEXT J 
NEXT I 
DATA 46360, 0,0,0,20,18,67, 67,16 
DATA 46592,12,1%,65,18,230,18,12,0 
Dei 3 T=û :62=û : TR=û 
GOSUE 465 

X=20 sY=ls 
REM + Depot des pieces * 

REFEAT 

T=T+i 

MS=ÉEYS 

XE=X :YE=Y 

IF MSS=CHRS (GS) AND MES=ECHKS (110) 
ON ASCIME)-7 GOSURÉOO, 420,440, 680 
IFX+DX<20RX+DX:T6THENDX=C 
IFY+DY£10RY+DY:2STHENDY=0 
X=X+DX: V=Y+DY 

IF RND(1)£.1 THEN GOSUE 400 

IF SCRNIX,V) 5:46 AND SCRN(X,YI<58 
GOSUE 450 

IF SCRN(X,Y)=42 THEN EXPLODE :D=0 
GOSUE 500 

UNTIL D=û OR T=1000 

FING :V=0 :T=û 

XC=INT CSSARND (1))+3 5 YC=INT (P7#RN 
}+1 

IF SCRNIXC, YC)£ 32 THEN GOTO 180 
ZAF 

FLOTXC, YC, 165 

REM * Retour *# 

REFEAT 

XE=X :YE=Y 

M$=FEYS 
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240 


IF M$&=CHRS (9) AND M$£=CHES$ (11) T 


HEN ON ASC(M$i-7 GOSUR 660,620,640, 660 


42 
244 
246 
250 
260 
270 
Z81) 
290 
F0 
310 


320 


IFX+DX<20RX+DX +26 THENDX=0 
IFY+DY< 10RY+DY 2STHENDY=0 

X=X+DX: Y=Y+DY 

IF SCRN(X,Y)=42 THEN EXPLODE :D=0 
IF X=XC AND Y=YC THEN V=i 

PLOTXE, ŸYE," 

PLOTX, YŸ, 192 

T=T+1 

UNTIL T=300 OR D=0 OR V=1 

CLS 

IF D=0 THEN FRINT'VOUS ETES TOMÉE 


S DANS VOTRE FIEGE":FRINTIC"EST MALIN" 


350 


IF Vel THEN FRINT'ERAVO VOUS ETES 


DANS LES TEMF6" 


340 


IF D£Q AND VE THEN FRINT'GARE 


AU ROULEAU À FATISGERITE" _ 


250 


FRINT 2 INPUT®VQULEZ VOUS REJQUER 


(O/N)I"SRSE 


360 
370 
399 
ÉTaTe) 
410 
420 
430 
449 
450 
460 
465 
470 
499 
500 
10 
19 


IF R$="0" THEN RUN 

END 

REM * Sortie chiffres ” 
XC=INT CSSKRND (1) ) +3 

YC=INT (22#RND (1) )+1 
FLOTXC, YE, 9*RND (1) +49 

RETURN 

REM % Affichage nbr pieges * 
S=G+SCRN(X, Y)-48 
TRETR+GSCRN(X, Y) -48 
FLOT24,25,S6TR# (SG) 

RETURN 

REM * Affichage pieges * 
PLOTXE.YE, " * 

IF TR£%0 THEN PLOTXE,YE,"#" 
IFCXESXE OF YEVE) AND TR£G THEN 


TR=TR-1 


520 
530 
599 
600 
610 
620 
530 
640 


FLOTX,Y,192 

RETURN 

REM * Deplacement braconnier # 
DX=-1:DY=0 

RETURN 

DX=1:DY=0 

RETURN 

DY=1:DX=0 


«11e 


&50 
660 
470 
480 
890 
7üû 
710 


RETURN 
DY=-1:DXeû 
RETURN 

RETURN 
DY=-1:DX=0 
IFY+DY<1THENDY=G 
RETURN 
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CHAPITRE 4 


Jeux 
d'action 


4.1 ASTÉROÏDES 


Une expédition d'exploration scientifique est en rou- 
te vers Jupiter. Vous êtes le commandant du vaisseau spa- 
tial. Hélas vous devez traverser la barrière d'astéro'ïdes 
après avoir dépassé l'orbite de Mars. Cela peut être 
périlleux et demande toute l'expérience du vétéran de 
l'espace que vous êtes. Heureusement, un dispositif révo- 
lutionnaire équipe votre vaisseau. Un désintégrateur est 
fixé à l'avant de celui-ci et pulvérise les astéro'ides 
arrivant devant vous. Mieux encore, la matière consti- 
tuant ces blocs de rochers est récupérée et utilisée com- 
me carburant. Pour poursuivre votre route vous devez donc 
détruire un maximum d'astéroïdes pour emplir vos réser- 
voirs. Mais des fusées ennemies patrouillent également 
dans cette portion du cosmos et votre désintégrateur est 
sans effet sur elles après trois salves de grande puis- 
sance. Prenez donc garde à ne pas en rencontrer plus de 
deux sur votre route. 


Pour déplacer le vaisseau, utilisez les flèches droi- 
te et gauche. 


T5 


Structure du programme : 
Lignes 15 à 45, présentation et initialisations. 


Lignes 50 à 140, boucle principale, assurent : 


- la création des astéro'fdes et le scroll li- 
gne 60 


- le comptage des astéroïdes touchés ligne 70 
- le déplacement du vaisseau lignes 90 à 110 


- le comptage et l'arrêt du jeu lignes 120 à 
140 


- la création des fusées ennemies ligne 130. 


Lignes 150 à 210, assurent la fin du jeu et l'affi- 
chage des résultats. 


Lignes 1000 à 1060 et 3000, sous-programme assurant 
la redéfinition des caractères. 


Lignes 2000 à 2100, traitement de la collision avec 
les fusées ennemies. 


Lignes 4000 à 4160, animation des fusées lors de la 
présentation. 


5 REM CHERE MREMENREE 
Q REM # ASTEROIDES + 


LE REM ab 
| 






25 PLOT 9,10, "DETEUIGEZ LES ASTEROIDE 


30 XVe 10: YVa0s TP=1000: Ve 
40 GOSUE 1000: GOSUE4 

45 CLS:FAFERO 

SO REFEAT 

AO FRINTTAB (RND (1) 42841) "#"TAB(RND (1) 
#TB+i) "a" 

70 IF SCRNUXV, YV+1)=42 THEN 6C=6C+1:6 
HOOT 








à 70 


80 IF SCRN(XV, YV+1)=96 THEN GOTO2900 
Q0 K£=KEVS 

100 XV=XV+(H#=CHRS(B) AND XV2)-(K#=0 
HR#(9) AND XV{37) 

110 FLOTXV-1, VV, CHRS CS) +CHRS (95) +CHRS 
(5) 

129 TP=TP-1 

130 IFRND (1) +0. 7THENFLOTRND (1) #3742,R 
ND (142442, CHRS (1) +CHRS (96) +CHRS (2) 
140 UNTIL TF={0 

150 PING 

160 PLOT2,10,"VQUS AVEZ DETRUIT "+5TR 
$(9C)+" ASTEROIDES" 

170 PLOT2,12, "VOULEZ VOUS REJOQUER7" 
175 PRINTCHRS (17) 3 CHR# (20) 

180 GETA# 

190 IF A$="0" THEN RUN 

200 IF A$="N" THEN END 

210 GOTI180 

1000 FOR I=i TO 2 

1310 READ E 

:020 FOR J=0 TO 7 

1030 READ L 

1040 POKEË+J,L 

1050 NEXTJ, 1 

1060 RETURN 

2000 V=V-1 

2010 EXPLODE 

2020 FOR 1=7 TO © STEF-i 

2030 PAPERI 

2040 WAITI0 

2050 NEXT I 

2060 PLOTXV, YV, 223 

2080 PLOTXV,YV+1," " 

2090 IF V=0 THEN FLOT2,8, "VOTRE VAISS 
EAU A EXFLOGE":GOTO160 

2109 GOTO90 

1000 DATA 46840,21,31,%1,10,14,4,4,4, 
46848, 8,8, 28,8,28,67,54,74 

4000 SOUNDI,1500,8 

4010 FORI=1T010 

4020 PRINTEZ, 3+13CHR$ (95) 

4070 PRINTES, 2+1;" " 

4040 PRINTEZS, 2+1 3 CHR$ (95) 

2050 PRINTESS, +1: " 

4060 PRINTEZ, 23-15"#" 
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IDE (OS 
IS (Gé) 





GS WAITIU 
190 NEXTI 
411Q EXFLODE 
4120 FORIS=7 TO © STEF-1 
4130 FAPFERT 
4140 WAITIG 
ASC NEXTI 
4160 RETURN 
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4.2 CHAMP DE FORCE 





Terra, an 3047, alors que l'expansion galactique bat 
son plein essor, alors que toutes les nations belligéran- 
tes ont déposé leurs armes, alors que “tout va pour le 
mieux dans le meilleur des mondes", votre planète se 
trouve menacée par une force étrangère. Nul ne connaît 
son origine, mais son ultimatum est précis : “la planète 
sera détruite dans 500 unités de temps”. Tous les grands 
de chaque nation se sont réunis. Leur décision : la des- 
truction de cette entité ennemie. Le moyen a été déter- 
miné par une entente de toutes les unités de recherche 
techniques, scientifiques et militaires : une charge doit 
être déposée au centre du champ de force. C'est dans le 
cadre de cette mission que vous pilotez actuellement la 
fusée interplanétaire transportant la charge. Vous devez 
dans une première étape rejoindre votre navette, puis, à 
l'aide de la navette, aller déposer la charge. Ces deux 
étapes sont primordiales, car la fusée serait détruite 
par le champ de force, alors que la navette plus puissan- 
te pourra y entrer et en ressortir facilement. Mais at- 
tention, l'ennemi n'est pas dupe : il essaiera de détrui- 
re la fusée, mais fuira la navette lorsque celle-ci sera 
en possession de la charge. Pour la plus grande réussite 
de votre mission, vous devez sortir du champ de force 
avant que la charge à retardement n'explose. Tous les es- 
poirs de vos co-planétaires reposent sur vous ... Trois 
tentatives vous sont permises. 
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Le programme vous propose trois niveaux de jeu, la 
vitesse de déplacement du champ de force croît avec le 
niveau. Les touches du clavier utilisées sont les flèches 
pour les déplacements, la barre d'espacement pour le tir. 


Structure du programme : 


Lignes 
Lignes 
Lignes 
Lignes 


Lignes 
vette. 


Lignes 
Lignes 


Lignes 
vers champ 


Lignes 
Lignes 
Lignes 
Lignes 
Lignes 
Lignes 


Lignes 


10 à 54, présentation. 

60 à 86, définition des caractères spéciaux. 
89 à 104, choix du niveau de jeu. 

109 à 240, initialisations. 


299 à 390, première boucle, trajet terra-na- 


399 à 610, déplacement fusée. 
699 à 750, destruction fusée. 


799 à 860, deuxième boucle, trajet navette 
de force. 


899 à 990, déplacement champ de force. 

999 à 1130, fin, sortie du programme. 

1199 à 1300, déplacement vaisseau. 

1399 à 1455, dépôt de la charge. 

1459 à 1510, explosion de la charge. 

1599 à 1640, commentaires si partie gagnée. 


1699 à 1810, poursuite de la navette par le 


champ de force. 


D OREM RARE 
19 REM * CHAMF DE FORCE +# 
11 REM EEE RER SERRE 


YA 


FA) F ñ F 





15 TEXT:FOKEHIAF, 1 
RQ sINEZ 


TE = 


25 
0 
gl 
FORC 
57 
RE F 
3 
L'EN 
4 
ET 
842 
bi 
66 
68 
70 
72 
74 
80 
81 
82 
83 
84 
85 
86 
89 
90 
gi 
92 
94 
96 
78 
INITIÉ 
100 
N G0 
102 
104 
109 
110 
120 
121 
123 
RND ( 
124 
125 


126 


FRINTCHRS (17) 

CLS 

PRINT: PRINT: FRINTSFC (10) CHAMP DE 
E" 


2 PRINT: FRINT:FRINTSPC (7) SAUVEZ VOT 


LANETE" 
PRINT: PRINT: PRINTSFC (8) "DETRUISEZ 
NEMI" 

PRINT: PRINT: PRINT 

REM * DEFINITION CARACTERES * 

FOR I=1 TO 7 

READ H 

FOR J=0 TO 7 

READ L 

POHEK+J,L 

NEXT J 

NEXT I 
DATA46856,0,1,15,59,15,1,0,0 
DATA46B64, 17,63, 62, 45,63,63, 12,0 
DATA46872, 0,37, 60,47, 60,22, 0,0 
DATA46592, 4,4,4,14,14,31,21,17 
DATA46260,0,7,12,62,12,7,0,0 
DATA46376,0,56,12,31,12,56,0,0 
DATA46244,17,21,21,14,14,4,4,4 
REM * CHOIX DU NIVEAU * 

TEXT 

PRINT'NIVEAUX DES DIFFICULTES" 
PRINT" 1:FAIBLE" 

FRINT"  2:MOYEN" 

FRINT" 3:FORT" 

INFUT'QUEL NIVEAU CHOISISSEZ VOUS" 


IF ASC{INIS)<49 OR ASC(NIS) 2:51 THE 
TO 98 

NI=VAL (NTSH) #7 

FAFERA 

REM + INITIALIGSATIONS +# 

X=230 :Y=190 3: FUET : XN=200 : YN=4û 
XC=120 :YC=100 :R=20 :TE=0 

HIRES 2: FAPERQ 2 INKS 

FOR I=i TQ 100 
CURSETINT (220#RND (1) )+10, INT(I9C0+ 
1))+2,5 

FILLI,1,16 

CURMOV-6, 1,5 
FILLI,1,INT(7#RND(1))+16 
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127 
155 
140 
150 
iéû 
170 
180 
190 
200 
210 
220 
BEC 
40 
298 
F0 
319 


NEXTI 
CURSETYC, YC, 3 

CIRCLER, 1 

CURSETX, Y, 3 

CHAR, ©, 1 

FOR I=1 TO 3 
CURSETEN+ (1-2) #6, YN,E 
CHAR96+I, G, 1 

NEXT I 

FOR I=i TO 2 

POHE49042+2#1,64 

NEXT I 

XF=49046 

REM * PREMIERE BOUCLE + 
M=KEYS 

IF Mé:=CHRS (8) AND M#<=CHR# (11) 


HEN GOSUE 400 





540 
350 


560 


270 
375 
280 
387 
384 
386 
388 
590 
299 
40 
410 
420 
RTS) 
440 
450 
480 
Star 
aio 
15 
220 
530 
540 
545 


ae 


EC= (X—XC) # (X-XC) + (Y-YC) # (Y-VC) 
EN= CX—XND # CX—XN) + CY—YN) # CY-YN) 
IF EC£R*R THEN GOSUR 700 

IF EN‘64 THEN GOSUR 800 

IF RND(1)€NI/10 THEN GOSUE 900 
TE=TE+1 

GOSUE 1740 

IF TE=500 THEN GOTO 1000 

FOR I=i TO 3 
CURSETXN+(1-2)#6, YN, 3 
CHAR9&+I, 0,1 

NEXT I 

GOTO z00 

REM * DEFLACEMENT FUSEE * 

XE=X :YE=Y 

ON ASC{M#)-7 GOSURS00, 530,560,590 
CURSETXE, YE, 0 

CHAR127,0, 0 

CURSETX, Y, 3 

CHARCG, ©, 1 

RETURN 

X=X-4 

IF X£20 THEN X=X+4 

CG=35 

RETURN 

X=X+4 

IF X:220 THEN X=X-4 

CG=37 


RETURN 
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ét 
71 
dr 
380 
90 
00 
6QS 
ë&iû 
879 
700 
710 
730 
730 
740 
745 
747 
750 
796 
800 
01 
gûE 
BCE 
A0é 
BU 
go 
810 


Yav+4 

IF Y>180 THEN Y=Y-4 
CG=37 

RETURN 

Y=Y-4 

IF V£20 THEN Y=Y+4 
CG=64 

RETURN 

REM # FUSEE DANS CHAMP * 
EXFLODE 

XE=X :YE=Y 

X=30 :Y=190 

FU=FU-1 

IF FU=0 THEN GOTO 1900 
FOKEXF, 20 

XF=XF-2 

GOTO 420 

REM # DEUXIEME BOUCLE * 
TR=1000 +: BOUM=O +: DEST=0 
CURSETX, V,3 

CHAR 127, 0,0 

X=XN + Y=YN 

XF=XF+2 

FOKEXF , 64 

M$=HEYS 

IF M#>=CHR#(E) AND M#£=CHR#(11) T 


HEN GOSUR 1700 


820 
BF 
835 
HX7 
84û 
SE de 
950 
860 
399 
S0G0 
910 
g20 
a] 


us 
= 


IF M$=CHR# (32) THEN GOSUR 1400 
TE=TE+1 

TR=TR-1 

GOSUE 1740 

IF TE=500 THEN GOTO 1000 

IF TR=0 THEN GOTO 1460 

IF RND(1)ENI/10 THEN GOSUR 1700 
GOTO 809 

REM * DEFLACEMENT CERCLE FUSEE * 
DX=SGN CX-KC) #INT (1 O#RND (1) ) 
DY=GGN (Y- VC) #INT CLOMRND (1) 

IF XC+DX<40 OR XC+DX3200 THEN DX= 


30 IF VC+DV<40 OR YC+DY+1606 THEN DY= 


î 
g4û 
550 
sé 
g7c 


CURSETXC, YC, 3 
CIRCLER, 0 

R=DO4 INT CLO#RND (13) 
XC=XC+DX : YC=YC+DY 
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975 CURSETXC,YC,S 

980 CIRCLER, 1 

990 RETURN 

999 REM + FIN DU JEU * 


1010 
1920 
1070 
1040 
1050 
1960 
O7 
1380 
1096 


1095 
1096 
1097 
1190 
1110 


NisRE 


1120 
1156 
1199 
1200 
1310 
ü 

1330 
1250 
1740 

250 
1260 
1270 
1380 
1290 
13500 
13599 
1460 
1410 
1415 
1426 
1470 
1445 
1450 
1455 
1459 


P=i 
FOR 1=1 TO 10 

PAFERF 

IF FP=l THEN P=3 :G0T0 1050 


P=l 
EXPLODE 

NEXT 1 

PAPERO 

PRINT"MISSION ECHOUEE" 
PRINT"UOTRE FLANETE EST DETRUITE 


FOR 1=49000 T049080 STEP40 
POHEI, 16 

NEXT I 

WAIT 100 

INPUT'VQULEZ VOUS RECOMMENCER (0/ 


IF R$="0" THEN RUN 90 

END 

REM * DEPLACEMENT VAISSEAU # 
XE=X : YE=Y 

ON ASCIM#)-7 GOSURS00,5706,560,59 


FOR I=i TO 3 
CURSETXE+ (1-2) #6, YE, 0 
CHAR96+I, ©, 0 

NEXT I 

FOR I=i TO € 
CURSETX+(1-2)#6,Y, 0 
CHAR9&+I, 0, 1 

NEXT I 

RETURN 

REM * DEPOT BOMBE x 

IF BOUM=1 THEN GOTO 1450 

ZAP 

TR=15 

BOUM=1 
EC=(X-XC) #(X-XC) + (Y-YC) #{Y-VC) 
IF EC£R*R/4 THEN DEST=1 

IF EC£R*R THEN TE=TE-50 
RETURN 

REM * MISE A FEU + 


=" 


1480 
1470 
1475 
1480 
1490 
1300 
1505 
1506 
1507 
1510 
1599 
1400 
1610 
1611 
1612 
1613 
1620 
UVEE * 
1622 
1625 
MARGE 
ié2é 
1850 


EXPLODE 
EC= CX—XC) # CXXC) + (Y=YO) # (V-YC) 
IF DEST=1 THEN GOTO 1600 
IF EC£R#R THEN GOTO 1000 
XN=X : YN=Y 
=30 :Y=190 
POHEXF, 20 
XF=XF-2 
CG=64 
GOTO 150 
REM * PARTIE GAGNEE + 
CURSETXC, YC, & 
CIRCLER, © 
FOR I=1 TO 3 
POHE49070+1,22 
NEXT I 
PRINT: PRINT'VOTRE FLANETE EST SA 


WAIT200 

PRINT: FRINT"IL VOUS RESTAIT UNE 
DE: "#500-TE 

WAIT 200 

PRINT: FRINTULA POPULATION VOUS F 


ELICITE®" 


1635 
1640 
1699 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
i+48 
1780 
1790 
1800 
1810 
É00€ 
EG10 
5020 


3030 


FRINT 

GOTO 1116 

REM # DEFLACEMENT CERCLE NAV + 
DX=SGNCX-XC)#INT (1CG#RND (13) 
DY=GGN (Y-VC) #INT CIO#RND (1) ) 

IF BOUM=C THEN DX=-DX :DY=-DCY 
GOTQ 920 

T=SQ0-TE 

TEL) =INT(T/100)+48 
TO2I=INT(T/10)-106#(T(1)-48)+48 
TOI) =T-10% (7 (2) -48)-100%(7T(1)-48 


FOR I=i TG Z 
FOÉE49070+I,T(I) 
NEXT I 

RETURN 

FOR I=H#ERO TO #FO0 
FRINTHEXS (PEER (I) 33 
PRINTHEXS (I): 

NEXT I 


02e 


4.3 DÉMINAGE 


La guerre approche de sa fin. Pour exterminer l'un 
des derniers bastions ennemis, une colonne de chars d'as- 
saut doit emprunter la vallée d'Abdel-Kir. Cette vallée 
étant un lieu de passage stratégique, l'ennemi y a enter- 
ré, dans le sable, des mines. Ces mines insensibles au 
poids d'un matériel léger sont un obstacle certain pour 
des véhicules lourds. L'état-major a donc décidé d'en- 
voyer sur les lieux des unités du corps du génie. Votre 
rôle en tant qu'artificier sera de désarmorcer les explo- 
sifs. Mais cette tâche ne sera pas facile, en effet des 
chars ennemis surveillent ce champ de mines et tenteront 
de vous anéantir. Votre seule chance de leur échapper est 
de regagner votre point de départ, ce qui vous ralentira 
dans votre tâche. Non contents de vous retarder, les en- 
nemis redéposeront des mines en regagnant leurs posi- 
tions. L'impératif temps est très important, il faut que 
la colonne alliée puisse passer avant que l'ennemi ne dé- 
truise tous les documents compromettants. 


Vous pourrez déplacer votre véhicule grâce aux quatre 
flèches. Il vous suffira de passer sur la bombe pour la 


désamorcer. Le temps qui vous est imparti est limité. 


Maintenant, ne perdez plus une minute : au travail ! 


Structure du programme 

Lignes 9 à 47, mise en place du décor. 

Lignes 50 à 86, définitions des caractères spéciaux. 
Lignes 100 à 160, pose des mines. 

Lignes 170 à 190, initialisations. 

Lignes 200 à 290, campagne de déminage. 

Lignes 400 à 610, déplacement du véhicule du génie. 


Lignes 700 à 830, poursuite du véhicule par char en- 
nemi. 


Lignes 1000 à 1140, retour char ennemi sur ses posi- 
tions. 
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char 


GR 
10 
11 
25 
27 
45 
47 
O) 
30 
te 
60 
65 
70 
75 
8û 
82 
84 
86 
100 
120 
150 
140 
145 
150 
160 


Lignes 1200 à 1230, affichage temps. 


« 


Lignes 1500 à 1540, explosion char sur mine. 


Lignes 1700 à 1730, pose des mines lors du retour du 


EM HAE 

REM * DEMINAGE + 

REM HUE 

CLS 

TEXT: PAFERS: INFO 

POKE #264, 10 

IF PEEFCH2OC)2=255 THEN FRINTCHRS (2 


FOR I=i TO 3 
READ K 
FOR J=0 TO 7 
READ L 
POKEK+J, L 
NEXT J 
NEXT I 
DATA 46840,0,63,33,33,45,63,6%, 18 
DATA 46592,21,14,31,14,21,0,0,0 
DATA 46848,:0,20,62,62,18,0,0,0 
TEXT 

FOR I=i TO 20 

X=INT (S4KRND (1) +3) 

Y=INT {20#RND (1) +2) 

IF SCRN(X,Y)=64 THEN I=I-1 
PLOTX, Y, 64 

NEXT I 
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170 
175 
177 
180 
190 
200 
205 
210 


220 


MI=20 : TE=1000 

FLOT4,25,64 : GOSUE 1525 
FLOT25,25,"T" : GOSUR 1210 

X=16 :Y=2 

FLOTX,Y,95 

REFEAT 

GOSUR 1260 

M$=KEYS 

IF M$>=CHR# (6) AND M$S=CHAS (11) T 


HEN GOSUE 400 


230 
230 
293 
260 
F$ 
270 
280 
290 
400 
410 
420 
520 

30 
440 
450 
500 
a10 
520 
30 
g40 
550 
560 
570 
580 
5970 
600 
610 
700 
719 
711 
720 
750 
740 


IF RND{1)£,05 THEN GOSUE 700 
UNTIL MI=0 OF TE=û 

FRINTCHRS (20) 

INFUT'VOULEZ VOUS REJOQUER (O/N)"s 


IF R$="O" THEN RUN 

PRINT: PRINT'FIN" 

END 

XE=X : YE=Y 

ON ASC(IM#)-7 GOSURSON, 550,560, 590 
IF SCRN(X,Y)=64 THEN FING:GOSUR 1 


PLOTXE,ŸYE," " 
PLOTX, Y,95 

RETURN 

X=X-1 

IF X42 THEN X=X+1 
RETURN 

X=X+1 

IF X>36 THEN X=X-1 
RETURN 

Y=Y+1 

IF Y>2Z THEN Y=Y-1 
RETURN 

Y=Y-1 

IF Y£2 THEN Y=Y+1 
RETURN 

XC=2 :YC=2E :D=1 
D=-D 

GOSUR 1200 

MÉ=KEYS 

XD=XC :YD=YC 

IF MS=CHR#(8) AND M$£=CHR# (11) 


THEN GOSUR 4G0 


745 
7750 


IF RND({1)%.5 THEN GOTO 720 
IF D=i THEN GOTO 8iû 


67 


Féû VOSINT CS#RND (15 } #GGN(V-YE)+YC 
765 IF YC+27 THEN YC=23 

779 IF XC=X OR YC=Y THEN GOTO 1990 
786 FLOTXD,YD," " 


785 IF SCENIXC, YOi=éé4 THEN GOSUR 1500 


790 FLOTXE, YC, 96 


900 IF XC£S20R YCES2S THEN GOTQ 710 


802 FLOTXD,YD," " 
80% PLOT2, 25,96 

805 RETURN 

810 XC=INT(Z#RND {1) ) #SENEX-XC) +XC 
815 IF XC{2 THEN XC=2 

20 GOTO 770 


1009 IF X=26 AND Y=Z THEN GOTOQ 1072 


1005 WAIT10 
1010 EXFLODE 
1020 PLOTX,Y," " 
1026 WAITS 

1020 X=36 :Y=2 
1032 PLOTX, Y,95 
1040 GOSUB 1700 


1080 IF SCRNIXC, YO)=é64 THEN GOSUR 150 


1060 FLOTXD,YD," " 

1070 FLOTXC, YC, 76 

1980 IF RND{1)<.1 THEN GOSUB 1700 
1090 XD=XC:YD=YC 

1100 XC=INT CTHRND (1) ) #SGN{2-XC)+XC 
1105 IF XC£2 THEN XC=7 


1110 YCSINT CS#RND C1) ASGN CZ VC) +YC 


1115 IF YC 
1120 IF XCé) 


THEN YC=23 
2 OR YO< 









[a] 
1130 GOTO 802 
1200 TE=TE-1 


#23 THEN GOTO 194 


1205 IF TE-INTITE/10)#102=9 THEN FLOT? 


ME # 
6,25, 


1210 PLOT26,25,STR$(TE) 

1220 IF TE=0 THEN GOTO 260 

1230 RETURN 

1500 EXPLODE 

1505 PLOTXC, YC," " 

1510 XC=2 :YC=23 

1520 MI=MI-1 

1525 IF MI=9 THEN FLOTS,25," 
530 FLOTS,25,STR# (MI) 


1540 RETURN 

1700 IF XD<2 OR YD:25 OK XD:36 OR YDé 
2 THEN GOTO 173û 

1705 IF SCRNOXD, YD)£ SES THEN GOTO 173 
(a) 

1707 FLOTXD, YD, 464 

1710 MI=MI+1 

1715 ZÂF 

1720 GOSUE 1550 

17253 SHOOT 

1730 RETURN 
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4.4 LES ENVAHISSEURS DE L'ESPACE 


Ca y est, c’est arrivé ! Les extraterrestres atta- 
quent. Ils veulent débarquer en grand nombre sur la ter- 
re. Il y en a de six espèces différentes plus étranges 
et monstrueuses les unes que les autres. Leur hostilité 
ne fait aucun doute. Que faire pour éviter cette invasion 
terrible ? Il faut les exterminer tous. Aucun ne doit 
rester. Mais ils se défendent ardemment à l'aide de bom- 
bes qu'ils envoient en grappes. Vous avez trois canons- 
laser à votre disposition. Cependant ces armes sont assez 
lentes à manoeuvrer et la durée entre chaque tir est as- 
sez longue. D'autre part vous ne pouvez tirer qu'un seul 
coup à la fois. Il faut donc viser juste et ne pas rater 
un seul envahisseur. Pour les aider, ils disposent d'un 
vaisseau spatial qui patrouille sporadiquement dans le 
ciel. Détruisez-le à tout prix car il contient 8 enva- 
hisseurs ce qui augmentera de 100 votre total. Néanmoins, 
les envahisseurs jouent sur le nombre, et si vous arrivez 
à détruire une escouade complète une autre prend la relè- 
ve immédiatement. Sauvez votre planète natale de la mena- 
ce cosmique ! Pour déplacer le canon utilisez les touches 
fléchées droite et gauche, pour tirer la barre d'espace- 
ment. 


Structure du programme : 


Lignes 300 à 500, boucle principale assurant le 
déplacement des envahisseurs horizontalement et verti- 
calement ainsi que la détection de l'arrivée au sol des 


envahisseurs. 


Le sous-programme 1000 redéfinit tous les caractères 
représentant les envahisseurs. 


Le sous-programme 2000 déplace le canon. 


Le sous-programme 3000 comptabilise les envahisseurs 
abattus. 


Le sous-programme 4000 visualise les envahisseurs sur 
l'écran. 


Le sous-programme 5000 assure la fin du jeu. 


Le sous-programme 6000 comptabilise les canons dé- 
truits. 
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Le sous-programme 7000 effectue la présentation du 


jeu. 


Le sous-programme 8000 déplace le projectile. 


a R 
10 


DIM A$(6),HR(6),X(20), 
j PAFERO: INK 
2 SC=0: TP=0: NC=33 NS20 


EM HER 
REM # ENVAHISSEURS + 
REM HR REA EE EE EN 
GOSUR1 OGC: GOSUER7 GC 
Y{20) 


CLG:NE=6: Mi=10 


O FOR Izi TO 6 


60 READ C,D 
70 FOFE C,D 

80 NEXT I 

100 B$=" " 

110 FOR I=i T0 6 

120 A$(I)=" 

130 FOR J=1 TO 6 

140 ASCI)=A8CL)4CHRS CI41 11) +" 


à NEXT 9,1 
70 XE=8: YE=T: XC=10: YC=22: PLOTXC, YC, “ 


Q GOSUE 4000 


NX=i:MY=i: Ter Ge VGslsYlei 
FOR I=i TO é:H(T)=6:NEXT I 
ù FOR Izû TO NC-i 
5 PLOT4HIST,25, "bc " 


30 NEXTI 
240 FOR I=i TO 8 


ao X(I)i= 


INT(RND (TI #ID4KE+1) 


YÉT)=LSETNTIRND CI), 11 
3 NEXTI 
O0 REM + Frogramme principal % 
1 REFEAT 
GO Mi 


3 REFEAT 


5 N=i 


it REPEAT 


Fi 





ES=EEVS 


70 IFCESECHRS (10) ANDESSECHKRS (7) ) 
GOSUE 2000 


THEN 


2:09 = 


380 IF SCANIXC+1,YC-1)=101 THEN GOSUE 
6000 

390 IF E$=CHR$ (SZ) AND NE52 THEN ZÂF:G 
OSUE 9QG0û 

595 IF S=i THEN GOSUR 2400 

400 NEN+I:NI=INT € (N+1) /2) :NIENT+1 

410 TP=TF+1: FLOTXC, VC," bc 

412 FLOTX(NI),YCNID," 

414 YINI)=Y (NI) +0,55 

416 IF Y(N1)=24 THEN X(N1)=INT(END(1) 
#11+XE+1):Y (NI) =VE+NEXZ 

418 FLOTX{NI),Y(N1),"e" 

425 UNTIL N=15 

425 M=M+1 

450 XE=XE+NX 

440 IF XEZS OR XE:22 THEN NX=-NX 

450 GOSUR400G 

455 IF SC:450 THEN M2=2 

480 UNTILM=M2 

470 YE=YE+MY: G=FRE C"") 

480 GOSUR4GQG 

490 IF S=0 THEN IF RND(I)£O.SFHEN S=i 
XS=: 

500 UNTIL YE=YC-24NE 

510 GOTO 5000 
520 END 

990 REM * Definition des caracteres # 
1000 FOR 1=46976 TO 47025 

1910 READ J 

1020 FOKEI,J 

19:30 NEXT I 

1040 FOR 1=46856 TO 46895 

1959 READJ 

1060 FOKEI,J 

1970 NEXTI 

1080 RETURN 

1990 REM * Depl canon * 

2000 REM 

2010 ON ASC(KH#)-7 GOSUR 2700,2700 
2020 RETURN 

2090 REM + Tir laser * 

2100 IF T=i THEN RETURN 

2110 T=i 

2120 XL=XC+1 

2130 YL=YC-1 

2140 ZAF 
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2159 RETURN 
2200 IF XC:7 THEN XC=XC-]j:FLOTXC, YC," 
bc LE 
2210 RETURN 
2500 IF XC228 THEN XC=XC+1:FLOTXC, YC, 
st bc LL] 
2310 RETURN 
2390 REM * Depl soucoupe +*# 
2400 IFXGEIOTHENXS=XS4+0, 5: PLOTXS, VS," 
d''ePLOTXS-I,VE,® 
2410 IFXS=ISTHENFLOTES, VS," fu Sat 
420 SOUNDI,1500,8 
B430 RETURN 
2990 REM + Effacement envahisseurs *# 
2000 SHOOT 
ZOOZ IF SR=iG0 THEN SC=SC+1 60e: NG=NG4T 
sFLOTXS,YS," fe S=: GOTOZOSS 
SOUS IF SR=lG1 THEN Y (ND =YE+NE#2: X (N) 
=INTCRND (1) #10+XE) : RETURN 
ZOOS We (YL-VE) 423 21=XL-XEs: 72=12-XL+XE 
2007 PLOTXL,YL-1,0 0" 
HOIO ASCHI)ELEFTÉ(AS CU), Z1)+9 MARIGHTS 
CAS CH, 221 
EGr0 ) H(W)=B W)—1 
GO GC=SC+IT 
NE=NE+1 
: 2 REPEAT 
OT NES=NE-1 
UNTILE(NEN £:C OK NE=0 
IF NE=G THEN NE=sé:GOTOZOE7 
SCH=STRS (GC) s PLOTE0, 0, SCH: FLOTXL 
sYL," “rYLez4 
2040 IF CRC1)+B (2) +H CE) 4H (4) +8 (5) +H (6) 
}ÉSOTHEN GOSUR4GGO: Te: RETURN 
ZOS0G RESTORE 
2060 FOR I=i T0 88 
3970 READ J 
32080 NEXTI 
2090 GOTO4S 
2900 REM + AFFICHAGE DES ENVAHISSEURS 
Æ 
4000 FOR I=i TQ NE 
4010 FLOT XE, YE+241,A# (1) 
4020 PLOT XE,YE-I+2#1,H# 
AGO NEXT I:G=FRE CS") 
404 RETURN 
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4990 
Soc 
5SOûZ 
920 


3030 





BEM # FIN DU JE + 

EXPFLODE 

WAITSGG 

CLS 

PRINT: PRINT: PRINT: FRINTULES ENVA 


HISSEURS ONT ATTERRIIIIIS 


3040 


PRINT: PRINT: FRINTOVOUS EN AVEZ E 


MPECHES "3 (SC-NS#100)/133 "DE SE FOSER" 


Sû4S 
UM DE 
3048 
INTS" 


3050 


PRINT: PRINT: PRINTÉEN CS TES CQUANT 
TEMPS" 
PRINT: PRINT: FRINTISÈORE: "3 GC: "FD 


FRINT: PRINT: PRINTEVQULEZ VOUS SU 


BIR UNE NOUVELLE ATTAQUE? (O/N)" 


5055 


at 


FRINTEHRS (20) 3 CHARS (17) 
INFUT C# 


5070 IF C$="0" THEN RUN 

3080 IF CE='N" THEN RELEAGSE:END 

309 GOT0 SGé0 

3680 REM # Canon detruit %# 

8900 NC=NC-1:EXPLODE: G=FRE (CH) 

&G10 IF NCe0 THEN CLS: GOSUE Südie END 
BOB PLOTA+(NCHES, ES, 0 Me PLOTXC, YC-1 
BOEO PLOT XC,YC," k 

&04S XC=10:PLOTXC, VE," bo": PLOTXC+HI,Y 
ETS? 

6050 RETURN 

6990 REM + Fresentation # 

7000 CLS: PAPER: INET 

7010 PRINT: PRINTCHRS (20) 5 CHRS (17) 
7O0Z0 PRINT: FRINTSFC(S)CHRS# (27) 5 "Dp 
rstupqrstu" 

700 FRINT:FRINTOLES ENVAHISGEURS VEU 
LENT ATTERRIR" 

7040 FRINT:FEINT'SAUVEZ LA PLANETE AV 
EC LE CANON LAGER" 

7050 FRINT:PRINTSPC CIO) CHRS (2735 "Ep qg 
rs t u p" 

70860 PRINT: FRINTSPE (IS CHRS (27)"Eq Fr 
s t u' 

7070 FRINT:PRINTSPC (14) CHARS (27) "En q 
a 

7080 FRINT: FRINTSPE (16) CHEFS (27) "De" 
70600 PRINT: WAITIOC 

7100 RETURN 
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8000 DATA 33,45,6%,12,30,49,33,51,12, 
18,51,63,45,12, 18,51 

8010 DATA 10,63,53,63,48, 60,76,54, 12, 
18,62,6?,42,42,42,42 

8020 DATA 40,20,30,63,45,63,18,45,36, 
46,63,53,31,30,1B,33 

8020 DATA 0,8,8,268,8,8,26,54,1,5.5,7, 
3,31,31,21 

8049 DATA 0,16,16,48,32,60,60,20,0,4, 
46,53,46,4,0,0,0,14,2,4,8,4,2,4 

8050 DATA 48081,1,48961,2,49000, 20,49 
040,20,49080,20,48041, 6 

9000 YL=YC-1:N3=0 

9010 XL=XC+1 

9020 REPEAT 

9030 SR=SCRN (XL, YL-1) 

9040 IF(SR<119 AND SR>111)0R SR=100 0 
R SR=101 THEN GOSUR 3000: U=1 

9050 YL=YL-i 

9060 PLOTXL, YL, "a":PLOTXL, YL+1," " 
9070 UNTILYL£2 OR U=i 

9080 PLOTXL, YL," ":U=0 

9090 RETURN 
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4.5 LE LABYRINTHE DE MINOS 


Une expérience scientifique vous fait remonter dans 
le temps. Vous revêtez les traits et le corps d'une per- 
sonne de l'époque. La machine vous a emmené en Crète an- 
tique et vous êtes Thésée pour quelques heures. Hélas, 
Thésée est très courageux et a accepté une mission suici- 
de. Il doit faire périr le Minotaure qui hante le laby- 
rinthe construit par Dédale. Vous ne pouvez refuser car 
vous ne pouvez pas intervenir sur le cours du temps, et 
la légende raconte que Thésée est entré dans le labyrin- 
the... Soyez aussi courageux que Thésée et affrontez le 
monstre. Heureusement, vous bénéficiez de l'aide d'Ariane 
qui vous a donné une bobine de fil que vous déroulerez 
derrière vous et qui vous permettra de retrouver rapide- 
ment la sortie du labyrinthe. Bonne chasse ! Gare au Mi- 
notaure qui est très rapide. 


Pour vous déplacer à l'intérieur du labyrinthe, uti- 
lisez les quatre touches fléchées. Le jeu comporte trois 
niveaux selon la taille du labyrinthe, la densité des 
murs. Seul le niveau l permet de voir les murs. Si le la- 
byrinthe vous semble sans sortie, ou pour vous arrêter, 
tapez [F] pour avoir la solution. 


Structure du programme 


Lignes 20 à 120, présentation du jeu, choix du niveau 
de jeu. 


Lignes 130 à 380, création du labyrinthe. 
Lignes 400 à 500, déplacement dans le labyrinthe. 


« 


Lignes 510 à 570, initialisation de la deuxième phase 
du jeu si le test ligne 520 est faux. 


Lignes 1000 à 1040 et lignes 5000 et 5010, redéfini- 
tion des caractères. 


Lignes 2000 à 2340, sous-programme assurant les dé- 
placements. 


Lignes 3000 à 3040, tracé du labyrinthe complet (ni- 
veau 1). 
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Lignes 3500 à 3580, tracé des limites extérieures du 
labyrinthe (niveau 2 et 3). 


Lignes 4000 à 4110, déplacement du minotaure - sa 
stratégie est de minimiser la distance entre lui et Thé- 
sée. 


10 REM 6466 
15 REM * LABYRINTHE *# 
lé REM HEIN 
20 DIM L(20,20) 
30 GOSUE 1900 
40 CLS:PAFERé: INES 
50 PRINT:FPRINT:FRINTSPC (ZI) "#4 LE LAB 
YRINTHE DE MINOS ##x" 
60 FRINT:FRINT:PRINT'UQUS DEVEZ OCCIR 
E LE MINOTAURE QUI EST" 
65 FRINT:FRINT:FPRINT'AU FOND DU LAEYR 
INTHE" 
70 FRINT:PRINT:FPRINT'ATTENTION AUX FI 
EGES!" 
80 PRINT: PRINT: PRINT"'Quel niveau desi 
rez vous#(1,2,7)° 
90 GET À$% 
100 IF ASEUIS OR AEEUI" THEN GOTO 90 
110 A=VAL (AY) 
20 FRINT:PRINT'"'Attendez un instant” 
125 REM «Limites du labyrinthe # 
120 N=10+5%(A-1) 
140 FOR I=i TO N 
150 L(T,1)=1 
160 L(T,iGi=i 
170 NEXT I 
186 FOR I=2 TO 9 
190 L(1,1)=i 
200 L(N,I)=1 
210 NEXT I 
220 REM + Creation du labyrinthe *# 
250 Z=0,18#S0R (A) 
240 FOR I=2 TO N-f 
250 FOR J=2 TO 9 
260 L(IT,J)=INT(RND(Ii)+7-7/75) 
270 NEXT J,I 
280 KEM + Fosition des pieges * 
290 W=â 
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300 FOR Il TO KW 

310 LOINTIRND(1)#7+2),INT(RND(1)#7+2) 
En 

320 NEXT I 

BE Xels YeINT (END (1) #64): VD=Y: FHelIF 
=54 

Han L(X,V)I=û 

350 XGeN: VOS INT (RND (1) #64) 

351 FOR Isi TO 3 

352 L(XS-1,YS-2+1)=0 

253 L(X+1,Y-Z+1)=0 

354 NEXT I 

360 LCXS, YE) =0: CLS: FAFER4: INF 

370 IF A=i THEN GOSUR 3GGû ELSE GOSUE 

5500 

380 FLOT 3,3, "TEMPS: "e FLOTXS+S, VS+8,9 
ô 

390 REM # Exploration du labyrinthe +# 

400 AS<KEYS 

405 IF A$="F" THEN GOTO 610 

410 IF ASECHRS(O) OK AS:CHR# (11) THEN 

GOTO 470 

420 ON ASC(AH)-7 GOSUER 2000,2100,2200 

2300 
à IF L(X,Y)=2 THEN EXFLODE:GOTOS5$û 

440 PLOTX+S,Y+8,F 

450 IF X=XS AND V=VS AND FH=l THEN GO 
TOS3û 

4860 IF X=1 AND Y=YD AND FH=2 THEN GOT 
O 600 

470 TPFETF+1 

480 FLOT9,5,STRS(TF) 

490 IF FH=Ë THEN GOSUR 4000 

300 GOTO400 

310 REM + Fhase 2 *% 

320 IFRND(1)20,STHENFLOT2,21,"Le mino 
taure est mort,vous avez gagne":GOTOé1 
(a) 

330 FLOT2,21,"Le minotaure est blesse 
senfuyez-vous" 

340 PLOT2,25, "avant qu'il ne vous rat 
rappe" 

390 TM=TP:F=QS 

360 PHez: XME=XS: VM=YS 

370 GOTQ 400 

380 REM # Fin *% 
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390 PLOTE,27, "Vous etes tombe dans un 
piege":G0TOéIG 

800 FLOT2,27, "Vous avez echappe au mi 
notaure, bravo“ 

10 GOSUE 3000 

ëzû PLOTS,2S, "VOULEZ VOUS AFFRONTER C 
E DEDALE 4° 

625 FLOT?,26, "NOUVEAUF (O/N) " 
ét GET À 

4 IF A$="0" THEN RUN 

éot IF AS=UN" THEN END 

és GOTO 670 

990 REM + Def caracteres *# 
1000 FOR I=46832 TO 46885 

1Gi0 READ J 

1080 FÜEE T,J 

LOSC NEXT I 

1040 RETURN 

1990 REM # Deplacement * 

2000 IF X=1 THEN RETURN 

2010 IF LEX-1,Y)=iTHEN RETURN 
3 PLOTXAHS, V4, nn 
ZOSC LOCK, Vie-1 
BC Kek—i 
2050 RETURN 
2100 IF X=N THEN RETURN 
EiG IF L(K4+1,Y)=1 THEN RETURN 
Zi2G FLOTXAS, VAE, "9 
SAIO LC, Vie] 
F140 X=X+1 
2150 RETURN 
2200 IF L(X,Y+1)=1i THEN RETURN 
2310 FLOTX +5,Y+E, FN 
2230 L(K,Y)=-1 

10 Y=Y+i 

RETURN 
Q IF LiK.Y-1)=1 THEN RETURN 
5 FLOTX+S, +8,09, 
DO LIK,Vie-i 
ÿ VeY-i 
2340 RETURN 
2990 REM # Trace complet * 
2000 FOR I=i TO N 
3010 FOR J=1 TO 15 
3080 IF Lil,di=i THEN FLOTI4S,J+8,955 
0 NEXTI, I 
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5049 
3490 
2500 
3510 
3520 


4550 


RETURN 

FEM # Trace du perimetre # 
FOR I=zi TON 

FLOTI+S,9,255 

FLOTI+S5, 18,255 


330 NEXTI 


2540 
RES 

560 
5570 
2500 
3990 
4000 
4010 
420 


LLRRNTS) 
4040 
HTRNTE] 
4080 
AOÉE 
470 
4080 
4090 
4100 


FOR I=2 T0 9 

IF Li,1)ei THEN FLOÔTS, 148,355 
IF LIN Iïei THEN FLOTN+S, I+8, 2355 
NEXT I 

RETURN 

REM % Cepl minotaure # 

IF TP-TMEZCG THEN RETURN 

E=û 
XT=XM-SGN {XM-X 0 TNT (RND (1) 8240, 5 


YT=YM-GGN CYM-V) 

E=E+1 

IF E=8 THEN G60TO 4070 

IF LUXT,YT)=1 THEN GOTO 4020 
FLOTXM+S, YM+8," 

XM=XT 

YM=YT 

LOTXM+S, YM+B,27 
IFXM=XANDYM=YTHENFLOTZ,23,"Le mi 


notaure vous a devore.descle":G0OTC &1û 


4110 
5000 


12,31, 


a010 


RETURN 
DATA 12,12,62,45,44,14,18,19,12, 
45,13, 28,22, 50 


DATA 18,12,12,%0,45,12,18,27 
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4.6 PILOTE DE CHASSE 





“Alerte à toutes les unités ! Alerte à toutes les 
unités ! Des avions inconnus ont violé notre espace aé- 
rien. Identifiez-les, et abattez-les sans sommation, je 
répète. Identifiez-les, et abattez-les sans sommation". 


Depuis le début des conflits qui opposent votre 
patrie à un pays expansionniste, les hautes instances mi- 
litaires ont décidé de surveiller de près certaines ins- 
tallations ultra-secrètes. Cette surveillance comprend 
bien évidemment une surveillance terrestre, mais aussi 
une surveillance aérienne. C'est dans le cadre de cette 
mission que vous êtes aujourd'hui sur l'un des chasseurs 
les plus rapides à ce jour. Et il s'avère que cette sur- 
veillance n'est pas inutile puisque l'ennemi a en effet 
décidé de passer à l'action. Pour le salut de votre pays, 
détruisez les appareils espions. 


Le programme proposé ici vous mettra dans la situa- 
tion citée plus haut. Une mire située au centre de 
l'écran vous permettra de viser les appareils ennemis. 
Vous amènerez ceux-ci au centre de la mire grâce à vos 
commandes de déplacement (les quatre flèches). La barre 
d'espacement vous permettra de faire feu. Votre but est 
d'abattre le plus d'appareils possible. Attention à votre 
réserve de kérosène, et au nombre de missiles restants. 
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Votre mérite sera comptabilisé par la boîte noire de vo- 
tre appareil : un avion abattu incrémente votre score de 
100 points, un avion sortant de votre champ de vue le 
décrémentera de 10 points. Bonne chasse. 

Structure du programme : 

Lignes 9 à 45, présentation. 

Lignes 47 à 64, définition des caractères spéciaux. 

Lignes 68 à 99, choix du niveau. 

Lignes 99 à 172, initialisation. 

Lignes 173 à 280, boucle principale. 

Lignes 999 à 5060, déplacement mire. 

Lignes 999 à 6020, tir roquette. 

Lignes 6030 à 6110, destruction avion. 

Lignes 7000 à 7080, déplacement avion. 

Lignes 7999 à 8070, affichage indicateurs. 

Lignes 8099 à 8160, affichage kérosène. 

Lignes 8199 à 8295, affichage score. 

Lignes 8299 à 8340, affichage avions touchés. 

Lignes 8399 à 8430, affichage stock roquettes. 


Lignes 8999 à 9040, affichage trajectoire roquettes. 


Lignes 9100 à 9460, affichage du tableau d'honneur. 


QG REM HERO EE EEE 

19 REM + PILOTE DE CHASSE * 

L REM HERO EEE EEE 

12 TEXT 

20 CLS:DIMTR(I1),TES(11):FORI=1TOIGIT 
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E$(I)="..,... .. ":NEXTI 

25 FAFERO : INEZ 

50 PRINT: FRINTSFC(10)"FILOTE DE CHASS 
E" 

35 PRINT: FRINT:FRINTSFC(S) "ABATTEZ L° 
ESCADRILLE INCONNUE " 

40 PRINT: PRINTSPC(S) "QUI VIOLE VOTRE 

ESFACE AERIEN" 

45 FRINT:FRINT:WAITIO0 

47 REM * Definition caracteres +* 

48 FOR J=1 TO 4 

30 READ FE 

92 FOR I=0 TO 7 

4 READL 

S6 FOFEE+I,L 

38 NEXT I 

39 NEXT J 

80 DATA46840,0,1,1,3,15,60,4,0 

82 DATA46592,0,0,0,32,56,210, 16,0 

85 DATA46848,59,42,465,51,45,45,51,63 

&4 DATA4S872, 4, 14,14,14,14,4,10,0 

68 REM *# Choix du niveau *% 

69 TEXT:INEZ 

70 PRINT'NIVEAU DE DIFFICULTE" 

71 PRINT" 1:FAIBLE" 

72 PRINT"  2:MOYEN" 

73 PRINT" 3G:FORT" 

74 INFUT'QUEL NIVEAU CHOISISSEZ VOUS" 


INI$ 
75 IF ASCINIS)£49 OR ASCINIS) #51 THEN 
GOTG 74 


74 NI=VAL(NI#) 

99 REM *# Initialisations * 
100 HIRES 

105 PRINTCHRS (17) 

119 FAPER6 : INK 

120 CURSETI10,90,Z 

159 FILLE0,1,19 

140 CURSETIZ0,90,3 

150 FILL20,1,22 

160 REM 

170 X=115 :Y=180 :KE=1000 :PNT=0 : MUN 
=20 :XE=80 :YE=80 : AV=û 

171 GOSUE 8000 

172 GOSUE 5020 

173 REM * Boucle principale * 
174 REPEAT 
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ir GOSUE 8150 

190 MÉ=<EEYS 

190 IF MBS=CHRS (SO) AND Ré<=CHRS (11) T 
HEN GOSUE 5060 

200 IF MÉSECHRS CZ) THEN MUNEMUN-I 260 
QUE étoc 

210 IF RNDCLIENI/10 THEN GOSUE 7000 





230 UNTIL KÉE=9 

240 FRINT'MANQUE DE CARBURANT, RENTREZ 
A LA BASE 

AS FING 

Bi HAITSOG TE CII) SPNT 





260 GOSURFIGC: GOSURG IC 

265 INFUTOVOULEZ VOUS REPFARTIR (G/N)° 
SES 

S70 IF Ré="ON THEN ISFRE CU") a CLS: GOTO 
Ë C3 

H80 ENT 

399 REM + Deplacement mire *# 

LOC Xek+4 

1010 IF KAISO THEN Xe1iÿs Y=2ûs INEGE EN 
TEFNT- 10 





2010 IF X£20 THEN X=115:Y=i0Gs INK: PA 
TEPNT-10 
à GOTG 5920 
3 Y=Y-4 
IFOVESO THEN eo Ve: INES4: PATES 









2020 GOTO 5040 

4000 Y=Y+4 

HOIO IF Vig0 THEN X=210 VeQS: INES: FA 
TEFNT- 10 

4320 GOTO 5620 

AOC EX 2 YERY 

ON ASC (M#)-7 GOTO1000, 2000, 3000, 








SG2O GOSUR 8200 
CURSETXE, YE, © 

\ CHAR6A, 0, 0 

035 CURSET XE-6, VE, = 
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3057 
5040 
a050 
3055 
5057 
3060 
5999 
&Q00 
4008 
4007 
5010 
<9-NI 
8015 
8020 
ÉTRS) 
6031 
£QEE 
6074 
BOIS 
6036 
6037 
&03E 
4040 
&045 
8047 
&0S0 
6060 
6070 
6080 
8090 


CHÉR9S, 0, 0 

CURSETX,Y,Z 

CHARGA, 0, 1 

CURSETX-6,Y, 3 

CHAR9S, 0, 1 

RETURN 

REM * Tir roquette * 
ZAF:WE=1:GOSUE 90600 

WAITIO :WE=0 : GOSUR 9000 
GOSUE 8460 

IF AES(X-115)29-NT AND ARS(Y-95) 
THEN EXPLODE : GOTO8G50 

IF MUN=O THEN GOTO 4990 
RETURN 

REM * Destruction avion *# 

Fal 

FOR Ii TO 19 

CURSET110,90,7 

FILL20,1,16+P 

IF F=1 THEN F=3 :GOTO 6G58 
F=i 

NEXT I 

PAT=PNT+100 

GOSUE 8260 

BV=AV+I : GOSUR 8500 

IF MUN=O THEN GOTCO 4090 

XE=X :YE=Y 

X=115 : Y=2O4H+ISO#INT (RND (1) #2) 
GOTO 5025 

FRINT:PFRINT'ELUS DE MUNITION.REN 


TREZ À VOTRE BASE" 


#10 
6110 
6999 
7000 
7005 
7o10 
7920 
7030 
7540 
10 
7050 
—10 
7560 
—10 
7070 
10 


FING 

GOTO 250 

REM # Deplacement avion +*# 

XE=X :YE=Y 

SeSGNCX-120) 

X=X+INT CLORRND (13) +5S 

N=SGN (Y-100) 

Y=Y+INT (1CO#RND (12) #N 

IF X:220 THEN X=30: V=095: PAT=PNT- 


IF X£20 THEN X=115:VY=180:PNT=PNT 
IF Y#180 THEN X=210: Y=95:PNT=PNT 


IF VE20 THEN X=115: Y=20: PNT=FNT- 
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7580 GOTO 5020 

7999 REM + Affichage indicateurs *% 
8GG0Q POKE49042,9é 

8010 POFE49050,95 

8020 PFOÉE49051, 64 

8030 FOFE49G60, 94 

8G40 FOR Isi TO 3 

8050 POÉE48990+1I%x40, 124 

8660 NEXT I 

8962 GOSUR 8400 

BGéS GOSUE 8200 

g0é6é GOSUE 8300 

8070 RETURN 

8099 REM * Affichage kerosene * 
8100 ECLI=INT(EE/100) 

8110 EC2)=INT(HE/10)-10%4E (1) 

8120 ECISI=ÉE-104E (3) -100%4E (1) 

8130 FOR Ii TO 3 

8140 FOKE49CAT+I,E(T)+48 

8150 NEXT I 

8160 RETURN 

8199 REM x Affichage score *% 

8200 AF<AES (FNT) 

8210 E(1)#0 

8230 E(4)=INT(AF/1000) 

8250 E CH) =INT (AF/100)-104#E (4) 

8240 E(2)=INT(AF/10)-10RE C3) -100%E (4) 
9250 IF PNT<O THEN E{5)=-%:GOTO 8270 
260 E(S)=-i6 

8270 FOR Isi TO S 

8280 POKE49077-1,E(I)+48 

8290 NEXT I 

8295 RETURN 

8299 REM + Affichage avions touches + 
8500 EC1L)=INT(AV/10) 

2310 E(2)=AV-IO4E (1) 

8330 FOR I=i TO 2 

G530 POKE49OS2+I,E(1)+48 

BXIS NEXT I 

8340 RETURN 

8399 REM + Affichage stock roquettes 


8400 E (1) =INT (MUN/10) 

R410 EC) =MUN-IO#E (1) 

6420 FOFE4GO63,E(1)+48 

B43CG POFE4QOGT,E (2)+48 

8999 REM x Trajectoires roquettes * 
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9000 CURSET115,100,3 
9010 DRAW-60,90,VE 
9020 CURSET115,110,3 


CISRTE) 
9040 
9099 


DRAW6O, 90, WE 
RETURN 
REM * AFFICHAGE DU TABLEAU D°HON 


NEUR + 


9190 
9110 
BLEAL 
9120 
9130 


TEXT: CLS: PAPERG: INES 
PRINTE10, 15 CHRS (4) +CHRS$ (27) +"NTA 
D'HONNEUR "+CHRS (4) 
FRINTES, 45 CHR$ (27) +"TSCORE" 
FRINTEZS, 45 "NOM": FRINTE1, 65 CHRS ( 


27)+"L" 


9140 
9150 
9160 
9170 
9180 


FORI=1TO10 

FRINTEZ, 4+2#1: TR(I) 

FRINTEI6, 4424715 TR$ (TI) 

NEXTI 

PRINTS4,253 "PRESSEZ UNE TOUCHE F 


OUR CONTINUER" 


9190 
9200 
9299 
GO 
9310 
9320 
9550 
=TRUE 
9340 
9350 
930 
9400 
g410 
9420 
940 
9440 
9450 
9460 


GET E$ 

RETURN 

REM + TRI + 

REFEAT 

ECH=FALSE 

FORI=1T010 

IFTRITIETR(I+1) THENGOSUR9400:ECH 


NEXTI 
UNTILECH=FALSE 
RETURN 

BUF=TE (TI) 
BUF#$=TES (1) 
TE(T)=TR(I+1) 
TR$(I)=TES(I+1) 
TR(I+1)=EUF 
TRS (I+1)=BUFS 
RETURN 
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CHAPITRE D 


Jeux 
de réflexion 


5.1 AWELÉ 


Î 


4. 


db 
DRE 


Ha 4 6 + + 
Fe ire 


Les 
4 





Découvrez l'univers des jeux de réflexion africains. 
Passionnez-vous pour l'Awélé, jeu connu aux Philippines 
sous le nom de Côkajon, en Java sous le nom de Pakân Da- 
kon, à Ceylan sous le nom de Câka, au Brésil sous le nom 
de Adi, et dans bien d'autres pays encore. Partagez l'en- 
gouement de ces peuples à cet exercice d'esprit. 


Imaginez-vous en Afrique, dans un village de paillo- 
tes, le soleil arrose la savane de ses dards acérés. A 


l'ombre d'un baobab, vous affrontez l'un des plus grands 
stratèges de la région, le sorcier du village. Vos gestes 


= LIL 


sont rythmés par les tam-tams qui sonnent au loin, à ces 
battements se mélangent parfois le rugissement des lions, 
le barissement des éléphants... L'enjeu : devenir digni- 
taire du village ou subir les maléfices du sorcier. Alors 
n'hésitez pas, prenez votre destinée en main, et soyez le 
plus fort. 


Le matériel du jeu traditionnel se compose de 48 
graines et d'un plateau en bois dans lequel sont creusées 
14 cases. Ces cases sont réparties de la manière suivan- 


BAPE 
se Eee El 


Cette aire de jeu ne nécessite aucun matériel parti- 
culier et est souvent tracée à même le sol. Pour plus de 
commodité nous numérotons les deux rangées de petites ca- 
ses et indiquons chacune de ces rangées par Nord ou Sud. 






Les règles du jeu sont aussi multiples que les noms 
sous lesquels l'Awélé est connu. Nous adopterons ici les 
règles suivantes : 


- les 48 graines sont réparties au départ, de manière 
équivalente dans chacune des cases numérotées. 


- à chacun des adversaires sont attribuées une rangée 
et une maison, celle-ci étant la case située au bout de 
sa rangée. 


— chaque joueur prend à son tour les graines d'une 
case quelconque de son côté du tableau, selon son libre 
choix (cases 1 à 6). 


— il les répartit alors une à une dans les cases sui- 
vantes dans le sens inverse des aiguilles d'une montre 
(il "sème”). 


— si son adversaire avait joué au coup précédent et 
que sa dernière graine tombe dans sa maison alors il re- 
joue. 
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— si sa dernière graine tombe dans une case vide et 
que la case vis-à-vis de l'autre rangée est occupée, 
alors les graines de celle-ci et la dernière graine sont 
mises dans sa maison (remarque : vis-à-vis ne veut pas 
dire portant le même numéro, le vis-à-vis de L est 6, de 
2, 5...). 


- s'il arrive qu'une des rangées soit vide, le pro- 
priétaire de celle-ci passera son tour jusqu'à ce que son 
adversaire lui fournisse des graines à déplacer. 


- le jeu est fini lorsque toutes les cases numérotées 
sont vides, le gagnant est celui qui a le plus de graines 
dans sa maison. 


Le programme que nous vous proposons suit mot pour 
mot les règles énoncées ci-dessus. Le côté Nord est at- 
tribué à la machine et le côté Sud vous est attribué. 
Vous possédez le trait au départ. Les commandes utilisa- 
bles sont seulement les numéros 1 à 6 qui indiqueront à 
l'ordinateur la case que vous voulez vider. Vous noterez 
la présentation originale de ce jeu, les graines sont 
remplacées par des petits hommes, et les cases maison par 
des paillotes. Vous avez maintenant en main toutes les 
informations : alors “Bon jeu". 


Sructure du programme 
Lignes 10 à 120, initialisations. 


Lignes 130 à 160, gestion du tracé du décor et de la 
mise en place des petits hommes. 


Lignes 170 à 330, arbitre de la partie. 


Lignes 1000 à 1070, acquisition et validation de la 
commande clavier. 


Lignes 2000 à 2100, test du contenu des rangées. 

Lignes 3000 à 3090, déplacement des petits hommes. 

Lignes 3100 à 3190, transfert des petits hommes lors- 
que la case vis-à-vis vient de recevoir la dernière grai- 
ne du déplacement précédent. 


Lignes 4000 à 4170, stratégie de l'ordinateur. 
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Lignes 5000 à 5130, affichage décor. 
Lignes 6000 à 6080, dessin des paillotes. 


Lignes 7000 à 7070, numérotation des cases de chaque 
rangée. 


Lignes 8010 à 8050, effacement petit homme côté Nord. 


Lignes 8080 à 8140, affichage petit homme. 
Lignes 8200 à 8250, effacement petit homme côté Sud. 


Lignes 8300 à 8470, affichage du nombre des petits 
hommes dans les paillotes. 


| Lignes 8500 à 8520, décalage curseur pour affichage 
en double rang. 

Lignes 9000 à 9180, mise en place initiale des petits 
hommes. 


Lignes 9200 à 9350, règles du jeu. 


G REM KHEXEXEEERX 

10 REM + ANELE +* 

11 REM ARE 

20 DIH B(14),G(14),X0(14),Y0(14), XC (1 
4),YC{14) 

25 GOSUR9200: PRINT'FRESSEZ UNE TOUCHE 
FOUR CONTINUER": GETASE 

30 READE 

a FOR Iso TO 7 

a0 READL 

80 FOKEE<4T,L 


70 NEXT I 
80° DATA46848, 64,64, 64,46,71,66, 67,69 
100 REM 

120 N=i :E=0 :C=0 :DRAF=0 : SUM=0 : VID 
= :COT=0 


150 GOSUR 5000 

140 FOR I=i TO 14 sKHil)i=4 :NEXT I 
1506 B(7)=0 :H(14)=0 

160 GOSUR 900 
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179 IFVID=ITHENFRINT:FPRINT'COTE VIDE. 
VOUS FERDEZ VOTRE TOUR": WAIT2GGu GOTO 3 
15 

180 GOSUR 1600 

190 IF E=Q THEN GOTO 260 

195 IF VID=1 THEN GOTO 170 

200 IF M=H THEN FRINT :FRINT'REJOUEZ" 

: GOSUR 1900 

210 IF E=0 THEN GOTO Z60 

215 IF COT=1 THEN PRINT :FRINT'IJE PER 
DS MON TOUR'":WAIT 100 :GOTO 256 

220 FRINT: FRINT'A MON TOUR DE JOUER" 

: GOSUE 4600 

230 IF E=0 THEN GOTO 260 

235 WAIT 300 

240 IF M=H THEN FRINT 3 PRINTJE REJQU 
E" :GOSUEB 4000 

250 IF E*0 THEN GOTO 170 

260 PRINT:FRINT'FIN DU JEU" :WAIT S0û 


270 D=R(7)-KH(14) 

280 IF DO THEN PRINT 3: PRINT'J "AI GÂG 
NE "35-D;" FOINTS":GOTO 316 

290 IF D=0 THEN FRINT :PRINT'FARTIE N 
ULLE" :G0OT0 310 

300 FRINT :PRINT'VOUS AVEZ GÂGNE *3D; 
" POINTS" 

310 WAÏT 500 2: PRINT : PRINT : INFUT®VOU 
LEZ VOUS REJOUER?(O/Nj"SRS 

320 IF R$="O"THEN GOTO 30 

330 END 

1000 PRINT: PRINT: INFUT'CAGSE À VIDER 
:M 

1010 IF M£7 AND M:0 THEN GOTQ 1040 
1020 PRINT:FRINT®IL N°Y À FAS DE CASE 
NUMERO "5 M 

1030 WAIT 300 :GOTO 1060 

1040 IF H(M)=0 THEN PRINT: PRINT'CASE 
VIDE" :GOTO 1030 

1050 H=7 

1060 REM 

1970 REM 

2000 K=M : GOSUB 7000 

2020 VID=1 :COT=1 

2030 FOR I=i TO 6 

2040 IF RiI)<%0 THEN VID=O :1=6 
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30 NEXT I 

LE FOR 178 TO 135 

IF ECl)i<:0 THEN COT=G 1: I=15 
NEXT I 

2060 Esi-VID#COT 

2100 RETURN 

3000 FeB(M) :B(M)=û 

010 FOR FeF TQ 1 STEF -1 





30 IF DRAF=0 THEN GOSUE 8010 
FOSC MeM+1 

2040 IF M+i4 THEN M=h-14 

5050 IF (Me7 OR M=14) ANDDRAF=0Q THEN 
SUM=1 2 H=M : GOSUR 8300 

5060 IF DRÉF=0 AND M£%7 ANDM£ #14 THEN 
GOSUE 8680 

BGES RMI SE (M) +1 

3070 NEXT F 

2080 IF E(M)=1 AND M£%7 AND Mcsi4 AND 
EG14-M)£50 THEN GOTO 3160 
3090 RETURN 
3100 IF E£7 THEN H=7 ELSE H=14 
2110 Es :IF DRAF=0 THEN GOSUB 8616 
F120 SUM=I 2: 1F DRAP =û THEN GOSUE 8550 








FAZE BiHI=H(H)+l 

150 F<b(i4-M) :K=i4-EÆ 
5 IF DRAF=1 THEN GOTO 3180 
Do FOR F=F TO 1 STEF -1 

2150 GOSUR 8010 

3160 SUM=1 : GOSUF 8700 

3165 HÉH)=E(H)+1 

F170 NEXT F 

F180 R(MI=0 2 HRÉI4-M) = 

5190 RETURN 

4000 D=-40 :H=14 

4019 FOR I=i TO 14 :G{T)=R(I) :NEXT 
AIS DRAF=1I 

4020 FOR J=8 TO 1% : IF HiJi=9 THEN GQ 
TG 4140 

4050 Q=0 sMeJ : GOSUR 30600 

4046 FOR I=i TO 6:1F EB(I)=0 THEN GOTO 
4100 

4050 LeBIT)i+T :R=û 

408 IF Lr14 THEN Lel-14 :KR=1 :GO0OT0 4 
460 
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4970 


IF HiL)=0 AND L£57 AND Lés14 THE 


N R=H(i4-L)4+f 


4G90 
4100 
4110 
4120 
4150 
4140 
4150 
4160 


IF Ré THEN CGsk 

NEXT I 

Q=B(14)-H(7) 

FOR I=i TO 14 :B(I)=G(I) :MEXT I 
IF QD THEN À=J :D=û 

NEXT J 

DRAPF=0 

ME :FRINT :FRINT'CASE VIDEE:"3:M 


—7 :WAITIG :GOTO EGGO 


4170 
5000 
1 0 
5020 
SOC 
54 
5050 
SG60 
9070 
5080 
5090 
So 
110 
J120 
3150 
ENTER 
6010 
60720 
400 
6040 
6050 
bD6C 
8970 
60680 
7000 
7010 
7070 
7020 
7040 
7050 
7070 
8010 
8015 
EH) +50 
8020 


REM 

HIFES 

FAPERS : INEOG 
CURSET1S,90,35 
GOSUR 6000 
CURSET195, 105,3 
GOSUR 6000 

X=10 :Y=15 
CURSET4S, 130,7 
GOSUR 7000 

X=—X 
CURSET19G,70,3 
GOSUE 7000 
RETURN 

REM 

DRAUWSG, Q, 1 
DRAU-15,-10,1 
DRAW-15,10,1 
CURMOVS, 0,3 
DRAWO, 15, 1 
DRAUWEOQ, 0,1 
DRAWG, -15, 1 
RETURN 

REM 

FOR I=i T0 6 
A=4B+I 

CHARA, 0, i 

IF 1=4 THEN Y=-Y 
CURMOVX, Y,Z 

NEXT I 

RETURN 

IF E£7 THEN GOGTO 82zûû 
IF XC(KH)-XO(H)£=0 THEN XC(EH)=X0( 
:YC(KH)=YC (EH) -8 
XA=XC(H)-5 : YA=YC(K) 


SET 


8030 
8640 
8050 
Bogo 
8690 
8100 
8110 
8120 
81:50 


CURSETXA, YA, 
CHAR96, ©, 0 

XC(KH)=XA : RETURN 

XA=XC (M): YA=YC (M) 

CURSETXA, YA, 

CHAR96, 0, 1 

IF M>7 THEN GOTO 8500 

XC (M) =XC (M) -5 

IF XO(M)-XC{M)>25 THEN XC(M)=X0( 


M) 2: YC(M)=YC (M) -B 


8140 
8200 


RETURN 
IF XO(KH)-XC(KH)£=0 THENXC(H)=X0(E 


}-30s YO CE) =VC(K)+8 


8210 
8230 
8270 
8240 
8250 
8500 
8510 
8:20 
8550 
8540 
8550 
8460 
8410 
8420 
8470 
B44û 
8450 
8460 
8470 
8500 
8510 


XA=XC(H)4+5 : YA=YC(E) 
CURSETXA, YA, 3 
CHAR96, ©, 0 

XC(KH)=XA : RETURN 
REM 

SIG=B(H) :AT=0 
GOSUE 8400 
SIG=S1IG+SUM : AT=1 
GOSUE 8400 

RETURN 

REM 

DIZ=INT(51G/10) 
UNIT=SIG-10#D12 
CURSETXO (H) , YO(H),3 
CHARAB+UNIT, 0, AT 
CURMOV-6, 0,3 
CHAR4B+D1Z,0,AT 
RETURN 

REM 

XC (M) =XC (M) +5 

IF XC(M)-XO(M)>+25 THEN XC(M)=X0 


(M) : YC(M)=YC(M)+6 


8520 
9000 


5,175, 


Go10 


RETURN 
DATASS, 120,85, 135,115, 150,145, 16 
150,205, 135,210,110 


DATA180, 80, 150,65, 120,50,90,25,6 


0,50,30,65,20,95 


9020 
YOCI) 
9025 
9030 


FOR I=1 TO 14 :READ XO({I) :READ 
:NEXT I 
RESTORE 
FOR I=1i TO 14 :XC(T)=XOCI) : YC{T 


)=YO(I) :NEXT I 


9040 


FOR I=1 TO 6 : DEC=-5S 
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G050 GOSUB 9110 :NEXT I 

SN60 FOR I1=8 TO 173 : DEC=S 

9070 GOSUR 9110 :MNEXT I 

9080 H=7 : GOSUR 85:00 

9090 H=14 :GOSUR 8300 

9095 RETURN 

9100 RETURN 

9110 FOR Jzil TO 4 

G12CG XA=XC(I) :YA=YC(I) 

9150 CURSETXA, YA, 3 

9140 CHAR9E, Q, 1 

9150 XC(I)=XC{I)+DEC 

9160 NEXT J 

9170 RETURN 

9180 END 

9200 CLS: PRINTEIS, 35 CHARS (4) +CHR$ (27) + 
NJx AUWELE #"+CHR$ (4) 

9210 FRINT:FRINT:FRINT'REGLES DU JEU: 
9220 PRINT: PFRINT'VOQUS JOUEZ AVEC LES 
CASES OÙ BAS" 

9236 FRINT'ET VOTRE FAILLOTE EST 4 VO 
TRE DROITE" 

9240 FRINT:FRINT'OUSND VOUS VIDEZ UNE 
CASE, LES HOMMES" 

9250 FRINT'SE REPARTISSENT UN À UN DA 
NS LES CASES" 

9240 FRINT'SUTIVANTES, " 

9270 FPRINT:PRINT'SI LE DERNIER HOMME 
ARRIVE DANS VOTRE" 

9280 FRINT'FAILLOTE, VOUS REJOUEZ,." 
G200 FRINT:PRINT'MAIS SI IL ARRIVE SU 
R UNE CASE VIDE" 

500 FRINT'DOONT LA VIS-A-VIS EST OCCU 
PÈE, LES" 

QH10 PRINT'HOMMES QU'ELLE CONTIENT VO 
NT DANS" 

9326 FRINT'VOTRE FAILLOTE." 

9550 PRINT: FRINT'LE GAGNANT EST CELUI 
DONT LA FAILLOTE" 

9540 PRINT'EST LA FLUS OCCUFEE. " 

93550 RETURN 
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5.2 CAVALIER 





Comment vous échapper de ce château mystérieux où 
votre curiosité vous a mené ? Heureusement pour vous, le 
propriétaire de ces lieux, un ermite enchanteur, vous 
laisse une alternative pour vous en sortir. Il vous a re- 
mis un échiquier et un cavalier magique. Chaque case de 
cet échiquier représente une grille que vous aurez à 
franchir. Pour pouvoir passer les soixante quatre gril- 
les, il vous faut obtenir la clef de chacune d'elles. Le 
moyen d'obtenir ces clefs est le suivant : vous choisis- 
sez une case de départ sur l'échiquier, vous y placez 
votre cavalier, puis vous le déplacez conformément au dé- 
placement d'un cavalier d'un jeu d'échecs. Chaque case 
parcourue vous donnera une clef, il vous faudra évidem- 
ment parcourir tout l'échiquier pour pouvoir retrouver 
votre liberté. 


Si vous voulez voir une solution, ou lorsque votre 
cavalier n'a plus de liberté de déplacement, ou encore si 
vous avez trouvé une solution, le magicien vous montrera 
sa solution. Vous pourrez alors tenter de trouver une au- 
tre solution. 


= l2L:= 


Le programme proposé ici vous fera chercher une solu- 
tion du problème précédent à partir d'une case que vous 
aurez choisie. Une solution vous sera proposée dans les 
cas cités plus haut. 

Les commandes à utiliser : 

- entrée des coordonnées de la case d'arrivée 

L C RETURN 
L étant une lettre de À à H et C un chiffre de 1 à 8, 
— demande de solution de l'ordinateur 
S 
Structure du programme : 
Lignes 15 à 150, initialisations, présentation. 


Lignes 160 à 220, moniteur principal. 


Lignes 300 à 320, affichage du cadre à la présenta- 
tion. 


Lignes 1000 à 1220, tracé de l'échiquier. 

Lignes 2000 à 2270, acquisition case à parcourir. 
Validation déplacement. Affichage cavalier. Test cavalier 
bloqué ou non. 


Lignes 3000 à 3110, validation commande entrée. 


Lignes 4000 à 4200, recherche et affichage d'une so- 
lution. 


Lignes 5000 à 5560, affichage du numéro du coup joué. 
Lignes 6000 à 6570, affichage du cavalier. 


Lignes 8000 à 8050, recherche des cases accessibles à 
partir d'une position. 


Lignes 9000 à 9070, définition des caractères pour 
dessin du cavalier. 
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9 REM NME 

10 REM # CAVALIER +# 

11 REM RO REIEX 

15 TEXT: PAPERS: INE4: CLS 

20 PRINTELS, 53 CHRS (4) +CHRS$ (27) +'OICAVA 
LIER'+CHRS# (27) +!HT4CHRSE (4) 

30 REM + Init deplacements *# 

40 DIM H(B).,V(E),7T(8,8) 

30 DATAI,2,2,1,2,-1,1,-2,-1,-2,-23,-1, 
Ps dselse 

ëQ FOR Isi TO 8 

70 REBD HI) ,V(I) 

A MEXT I 

90 GOSUR9GOG 

100 FORI=2TOSSTEFé 

105 FORJ=12TOZ6éSTERFZ 

110 GOSURSQC 

115 NEXTIJ,I 

120 Ted: ei: GOSURZO0: Jeré: GOSURTOO 
125 Isb:J=1i2: GOSURZ O0: J=2é: GOSURTGC 
1350 PRINTEZ, 155 "REMPLISSEZ L'ECHIQUIE 
FR EN VOUS" 

L3S PRINT: PRINT'DEPLACSNT COMME UN CA 
VALIER, 

140 PRINT: FRINTOTAFEZ °S° FOUR AVOIR 
UNE SOLUTION" 

145 WAITSG0 

150 PAPERS : INES 

159 REM * Saut sur partie joueur # 
16 GOSUE 1006 

170 GOSUR 2000 

179 REM *# Saut sur partie computer *# 
180 PRINT :FRINT'VOILA UNE SOLUTION" 
185 FORI=1TO8:FORJ=1TO8S: TT, J)=0:NEXT 
J,I 

190 GOSUR 4000 

200 FRINT : INFUT'VOULEZ VOUS KRECOMMEN 
CER(O/NIUIRSE 

210 IF R$="0" THEN RUN 

220 END 

300 FRINTEI, Is "E"+CHRS 95) 

310 FRINTEJ, I+13CHRS (126) +CHR# (96) 
320 RETURN 

1000 REM *# Dessin echiquier + 

1905 HIRES 

1010 PAPERS 2 INEI 
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1020 CURSET24,6,0 

1030 C=19,5 :D=3.5 

1040 FOR I=i TO 8 

1050 FOR J=1i TO 8 

1060 FILL25, 1,C+D 

1070 D=-D 

1080 NEXT J 

1090 CURSET24%(1+1),6,0 

1095 D=-D 

1100 NEXT I 

1110 FILL1B4,1,18 

1120 CURSETI8, 14,0 

1130 FOR I=8 TO 1 STEF -i 
1140 CHAR4B+I, 0,1 

1145 IF I=i THEN ne 1160 
11509 CURMOVO,25,c 

11é6û NEXT I 

1170 CURSETE2, 191,0 

1180 FOR I=i TO 8 

1190 CHAR64+TI, O0, 1 

1200 CURMOVZ4, 0,0 

1210 NEXT I 

1220 RETURN 

2000 REM + Fartie joueur * 
2005 E=0 

2010 INFUT'CASE DE DEFART(VER/HOR) "SX $ 
2020 GOSUE 300S 

2030 XOEX ss VORY 

2040 TX, Y)=0 

2050 GOSUE 6000 

2080 REFEAT 

2070 TX, V)=TIX, Yi+i 

2080 INFUT'CASE D°ARRIVEE®":XS 
2085 Éek+1 

2090 GOSUR 5000 

2100 IF X$="S" THEN GOTO 186 
2210 GOSUE 5000 

2220 DF=0 

2230 GOSUE 8000 

2240 UNTIL DF=0 

2250 IF KE=63 THEN FRINT'ERAVO® :EXPLO 
DE:WAITI00 :G0T02270 

22840 FRINT :PRINT'VQOUS AVEZ PERDU" :W 
AITSQQ 

2270 RETURN 
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2999 
2000 
SOUS 
F0G10 
2015 
570 
FO 
F040 
&û 
2950 
3051 
3058 
3056 
060 
GOTO 
F080 
F090 


REM + Decodage coordonness *# 

IF X#="S" THEN GOTO 3110 
VeASC(RIGHTECXS, 1) )-48 
X=ASC(LEFT#(XS, 1) )-64 

IFE=Q THEN GOTO 3060 

XH=X-HQ : YVEVY-VE 

FOR Jei TO 8 

IFXHEH CI) THENTFYVEV (J) THENGOTOSG 


NEXT J 

ZAF 

GOTO :090 

FING 

IF X£1 OR X:6 OK Véi OR Y:S THEN 
3090 

IF TÉX,Yi=0 THEN GOTO 3100 
INPUT"'CODE INVALIDE. ENTREZ (VER/H 


OR" XS 


3095 
3100 
3110 
4000 
4002 
4005 
4007 
4010 
AGO 
AUTO 
4040 
4050 
4060 
4070 
GOTO 
4080 
4060 
AOQS 
4100 


GOTO :000 

HO=X 2 VE=Y 

RETURN 

REM # Fartie computer +# 

GOSUR 1000 

X=X0 :Yevo 

W=TO+CK-1) 424 27104 (0%) #27 
TIXO, VO) =0 sKÉe0 :0F=8 

REFEAT 

TÉXAYIETIX, V)+1 

MINE 

FOR I=1 TO 8 

A=X+HCIY sE=V4V(Ti 2: DF=0 

IF AS1 OR A8 OR E£1 GR B59 THEN 
4130 

IF T(A,H)S:0 THEN GOTO 4130 
FORJ=1TO8 

CæA+H (I): DeR44 CT) 

IF COGNDCESANDDSCANDD:S THEN IF 


TC, D)i=0 THEN DP=DP +1: CALLHKFEHI4 


4110 
4120 
= 
41:30 
4140 
4150 
4160 
4180 


NEXT J 
IF DFÉEMIN THEN MINEDF 2: DHEA : DV 


NEXT I 

X=DH : Y=DV 

E=E+1 

GOSUE 5000 

UNTIL MIN=0 
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4200 
4996 
5000 
5010 
3300 
3910 
dec 


PATATE) 
910 
6020 
S0E0 
&t40 
4500 
&510 
6320 
6330 
6340 
8590 
4360 
&370 


7999 


AOÛ 
BG 
8020 
BG 
T{C, D 
840 
8050 
8990 
9000 
9010 
GO 
900 
9040 
OS 
g060 
, 124 

GOëZ 


9064 
127 

5068 
96, 127 


G07i 


RETURN 

REM *# Numerotage coup joue *# 
CURSETWH, Z, 5 

Q=0 : GOSUE 6500 

BEM 

CURSETUW, +4,37 

DIZ=INT(E/10) 

UNIT=E-DIZ#10 


D CHAR4B+D1IZ, 0,1 
50 CURMOV6, 0,5 
où CHARAB+UNIT, 0, 1 


REM 

W=TG+(X-1) 424 27104 (Yi #2T 
CURSETH, 7,5 

Oz :GOSUB 6500 

RETURN 

CHARS, 0,0 

CURMOVE,, GT 

CHAR9S, G,0 

CURMOV-6, 8,25 

CHAR1ZS, ©, 0 

CURMOVE,, QG, 23 

CHAR96, 0, Q 

RETURN 

REM + Recherche coups possibles 


REM 

FOR J=i TO 8 

C=x+H{g) :D=Y+vil) 

IF C:O8NDC<SG68NDD:OANDDSS THEN IF 
}=0 THEN DF=DF+1 

NEXT J 

RETURN 

REM * Definition caracteres * 
FORI=1T04 

REALDE 

FORJ=0T07 

READL 

FOKEE+J, L 

NEXTJ,I 
DATA46592,64,87,89,79,02,126,100 


DATA46B40, 96,80, 72,84, 66,97,93,8 
DATA46848,72,72,72,120,80,78,65, 
DATA47088, 100,124,100,127,66,92, 


RETURN 
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5.3 MASTERMIND 
FE #% 
11 
SE 
EF PTE 
rs 
. S 


D 





Mastermind est un jeu de réflexion inventé par un ma- 
thématicien : Mordechai Meirovich. Deux partis sont en 
présence, le codeur et le décodeur. Le rôle du codeur est 
d'élaborer une combinaison de quatre fiches, et de donner 
des informations sur cette combinaison. Le rôle du déco- 
deur est de trouver la combinaison élaborée en s'aidant 
des informations données par le codeur. Les informations 
sont de deux types : nombre de bonnes couleurs à la bonne 
place, et nombre de bonnes couleurs à la mauvaise place. 
Le nombre de tentatives du décodeur est limité à dix. 


Le programme proposé joue le rôle du codeur. 


Six couleurs sont possibles 


Rouge : R Bleu : B 
Vert : V Magenta : M 
Jaune : J Cyan ; C 


La combinaison élaborée est formée de quatre fiches, 
chacune de ces fiches pouvant avoir une des six couleurs 
précédentes. Les combinaisons multiples sont donc possi- 
bles. Pour entrer votre combinaison, vous devez procéder 
de la manière suivante : 


Tapez : C; C, Ca C4 puis [RETURN] 


C; = code de couleur 


Les indications vous seront fournies dans les colon- 
nes Cet P : 
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- C : bonne couleur, mauvaise place, 
- P : bonne couleur, bonne place. 


Lorsque vous aurez trouvé la bonne combinaison ou 
utilisé vos dix tentatives, vous verrez s'afficher le bon 
code sur la première ligne du tableau. Et maintenant à 


vous de jouer. 


REMARQUE : si vous entrez 


c, C, Css C 


C; = code de couleur 


n-3 Ci: Get 
seuls les quatre derniers codes sont pris en compte. 


Sructure du programme : 


Lignes 10 à 110, commentaires. Appel au tracé du dé- 
cor. 


Lignes 120 à 140, élaboration du code secret. 
Lignes 147 à 148, affichage de C et P. 
Lignes 150 à 310, arbitre de la partie. 
Lignes 1000 à 1220, tracé du décor. 

Lignes 2000 à 2050, affichage du code secret. 


Lignes 3000 à 3130, lecture et validation de la com- 
binaison entrée au clavier. 


a 


Lignes 4000 à 4090, table de traduction des codes 
couleur. 


Lignes 5000 à 5090, affichage de la combinaison en- 
trée au clavier. 


Lignes 6000 à 6160, recherche des indications à vi- 
sualiser. 


Lignes 7000 à 7060, affichage indications. 
Lignes 8000 à 8090, effacement du contenu du tableau. 


= 128 - 


D REM RERO ROUES 

10 REM * MASTERMIND +# 

11 REM HR RM EURE 

150 RE 

119 GOSUR 10060 

120 FOR I=1i TO 4 

150 COMR(CT)=INT (6#RND (1) +1) 
140 NEXT I 

1435 H=û 

147 W=iG:B=TE: Ye1S 

148 GOSUE7000 

150 FOR E=1 TO 10 

165 GOSUE 3000 

170 GOSUR 5000 

189 GOSUE 6000 

190 GOSUE 7000 

200 IF H=4 THEN GOTO 260 

210 NEXT E 

220 FRINT :FRINT'VOUS AVEZ FERDU" : WA 
IT500 

260 PRINT :FRINT'EONNE COMBINAISON 
270 X=90 :Y=i5 

280 GOSUE 2900 

290 FRINT:INPUT'VOULEZ VOUS REJQUER?( 
O/NIUSIRE 

300 IF R$="0" THEN GOTO 8000 
310 END 

1990 HIRES 

1010 INEZ 

1920 FOR I=102 TO 222 STEF 18 
1020 CURSETI, 10,3 

1040 DRAWO, 165, 1 

1950 NEXT I 

1060 FOR I=19 TO 175 STEF i5 
1970 CURSETIOZ,I,Z 

1080 DRAWI1O8,0,1 

1990 NEXT I 

1100 FORI=OTOS 

1110 KREADCL 

1120 CURSET20,15#CI+1),2Z 
11230 FILLS,1,17+1I 

1140 CURSET26,15#(1+1),35 
1150 FILLS,1,16 

1180 CURSETE8, 15#(1+1),3 
1170 CHARCL,G,1 

1180 NEXTI 
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1190 
1200 
1220 
2000 
2910 
2020 
2050 
204û 
2050 
E900 
3010 


DATAS2,86,74,66,77,67 


RETUEN 
RETURN 

REM 

FOR I=i TO 4 

C(I)=COMR(I) 

NEXT I 

GOSUE 5070 

RETURN Hé 

REM 

PRINT :PRINT : INFUT'ENTREZ VOTRE 


COMBINAISON": CHOIXE 


5060 
EG7O 
5080 
5090 
3100 
INVALIDE'":WAIT 206 :GO0TO0 3600 


3110 
3120 


130 


4510 
90 
4020 
Q0 
4 
30 
4040 
Qi 
4050 
où 
ao 
Gü 
4070 
4080 
4090 
00 
3010 
5020 
SOU 
3040 


SOS 





IFLEN (CHOIX#) 4 THENGOTOZ010 
3 FOR I=4 TO 1 STEF -1 


CHI) =LEFTS (RIGHTS (CHOIXS,5S-I),1 


NEXT I 

FOR Isi TO 4 
CODé=C$ (I) 
GOSUR 4600 


IF TRAD=G THEN FRINT : PRINT"CODE 


C{I)=TRAD 
NEXT I 
RETURN 
BEM 


IF COD$="R" THEN TRAD=i 


IF COD$="V" THEN TRAD=2 


IF COD$="J" THEN TRAD=Z 


IF COD$="E" THEN TRAD=4 


IF COD#&="M" THEN TRAD=S 


IF COD$="C" THEN TRAD=6 


TRAD=0 
RETURN 

RETURN 

REM 

V=15S+15#E 

FOR I=i TO 4 
X=108+18*(1-1) 
CURSETX, Y, 3 
FILLS,1,16+C{1) 
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40 


40 


40 


40 


40 


5060 
5070 
2080 
3090 
GG 
600 
é010 
4070 
TRS) 
84040 
6060 
6070 
6080 
4090 
&100 
8120 
6125 
&i:0 
6140 
6150 
6160 
7000 
7010 
7020 
7050 
7040 
7050 
7060 
5000 
8910 
8020 
8950 
8040 
8050 
8060 
8070 
8580 
8690 


CURSETX+6,V,E 
FILLS, 1,16 

NEXT I 

RETURN 

REM 

B=0 :W=0 

FOR I=i TO 4 
IF C(I)=COMB(I) THEN B=B+i 
NEXT 1 

FOR I=i TO 4 
R(1)=COMB (1) 
NEXT I 

FOR I=i TO 4 
FOR J=i TO 4 

IF C(I)£3R(J) THEN GOTO 6130 
W=W+1 :R(J)=0 
GOTO61 40 

NEXT J 

NEXT I 

W=W-B 

RETURN 

REM 

AT=1 :CAR=0 
CURSET180, Y-1,3 
CHARA4B+NW, CAR, AT 
CURSET 198, Y-1,3 
CHAR4B+E, CAR, AT 
RETURN 

REM 

FOR K=û TO 10 
FOR I1=1 TO 4 
C(I)=0 

NEXT I 

GOSUR 5000 

W=79 :B=W :AT=0 :CAR=O 
GOSUR 7020 

NEXT K 

GOTO 120 
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5.4 JEU DU PENDU 


JEU PENDU | 


HÉLAETETEE 





Voici un grand classique des jeux de devinettes. Un 
mot est choisi par votre Atmos dans son dictionnaire. 
Vous devez le découvrir en un minimum de coups. Pour vous 
aider, le nombre de lettres du mot vous est donné par des 
étoiles recouvrant les lettres. Vous devez proposer une 
lettre et si elle fait partie du mot secret, elle appa- 
raîtra à sa place dans le mot. Mais si elle n'appartient 
pas au mot ou si vous l'avez déjà proposée, une partie du 
pendu se dessinera sur l'écran. D'abord le socle et la 
potence puis la corde, la tête, le corps, les bras et en- 
fin les jambes. Quand la jambe gauche se dessinera, vous 
aurez perdu. L'Atmos vous donnera la solution. Attention, 
soyez “fair-play" et ne faites pas exprès de perdre pour 
voir se dessiner le pendu ! 


Structure du programme 


Lignes 20 à 190, tracés des décors et présentation du 
jeu. 


Lignes 220 à 270, recherche du mot dans le diction- 
naire. 


Lignes 300 à 330, effacement du pendu. 


Lignes 350 à 380, entrée de la proposition de lettre. 
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Lignes 390 à 410, tri des lettres déjà jouées. 


Lignes 470 à 540, testent si lettre valable et si mot 
trouvé. 


Lignes 1000 à 1050, sous-programme de traitement de 
lettre trouvée. 


Lignes 2000 à 3070, tracé du pendu. 


Lignes 4000 et suivantes, dictionnaire. 


REMARQUE IMPORTANTE : 


Le dictionnaire est écrit en DATA. La première donnée 
à la ligne 4000 est le nombre de mots contenus dans le 
dictionnaire. Les autres données sont les mots. Le nombre 
de mots par ligne de DATA est sans importance. Evitez 
toutefois de dépasser la contenance de la ligne. Ecrivez 
les mots entre guillemets. Vous pouvez donc modifier et 
allonger le dictionnaire à votre guise. Créez-vous plu- 
sieurs dictionnaires contenant un vocabulaire spécialisé 
ou de niveaux différents et enregistrez-les sur cassette. 


5 REM RHONE EN EEE N 
10 REM * JEU DU FENDU * 
15 REM HEURE EUX 
20 PAPER O:INK 5 

30 HIRES: INKS 

40 E=15 

50 E$="JEU DU PENDU" 

60 FOR I=1 TO 12 

70 CURSET E+1*8,20,0 

80 CHAR ASC(MIDS(E#,1,1)),0,1 
85 NEXTI 

90 CURSETE, 10, 0 

100 DRAW110,0, 1 

110 DRAWO, 28, 1 

120 DRAW-110,0,1 

130 DRAWO, -28, 1 

140 CURSET137, 0,0 

150 FILL20,1,23 


- 134 - 


180 FILL120, 1,2? 

170 FILLS0,1,10 

180 FOR I=i TO 20 

190 CURSETIO+1%6, 100, G: CHAR127, , Gi NE 


200 Fée" !leSris Fed 
210 FEM *# Recherche du mot * 
220 READJ 
D NEINT CRND (li #J+1i 

235 I=û 

240 REFEAT 

259 I=l+i 

260 READ Jé 

265 UsFRE (M 

270 UNTIL IEN 
280 LM=LEN(J#) 

290 FOR Isi TO LM 

3G0 CURSETIOHT4*6, 100,0 

310 CHAR 127,0,0 

220 CHAR 42,0,1 
350 NEXT I 

240 REM *% Debut +*# 

250 FRINT'Ouelle lettre jouer-vous®"i 
T=0 

360 GET A$ 

370 IF A$SS"A'OR ASSUZUTHEN GOTO 3éû 
380 FRINT'Vous avez joue la lettre "3 
A$ 

390 FOR Izi TO LEN(E#) 

400 IF AS=MIDS(E#,I1,1) THEN FRINT'de; 
a joues": R$=R#$+A#:GOTO 4660 

4i0 NEXT I 

420 E$=R$+A$ 

450 FOR I=i TO LM 

440 IF A$=MID#(J#,1,1) THEN GOSUR 1600 
ü 

450 NEXT I 

460 IF T=0 THEN GOTO25G0 

470 IF SESLM THEN GOTG 555 

480 FPRINT"'Vous avez trouve en "SLEN(E 
$)-13" coups" 

490 FRINTES 

495 WAIT4N0 

500 FRINT'Voulez vous rejouer7{0/N) 
ai GETDS 
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t IF Cé="0" THENFHINT'OE! "2: RESTORE: 

GOTO:500 
S30 IF Dé="N" THEN END 
240 GOTO 510 
99 REM # Lettre trouvee # 
1GGQ T=i 
1910 S=S+1 
1920 CURSETIO+I46, 100,0 
1020 CHAF 127,0,0 
1040 CHAR ASC(AS),0, 1 
1950 RETURN 
1990 REM # Trace du pendu *# 
POO00 FaF+l 
2010 GOTO 20004+100%F 
Zioo CURSETIZ0, 120,0 
110 FILL30,1,1 
2120 FOR I=i TO 16 
2130 CURSETISG, 1284+1.0 
2140 DRANEO, G, À 
2150 NEXT I 
21860 CURSET140,146,û 
170 DARAW BC, 1 
2180 CURMOV G,5.0 
2195 DRAN-80, 64,1 
GOTO 350 
5 CURSET 149,40,0 
. FILE9O..L5S 

FOR Ii TO 8 
0 CURSET 199+1,40,0 
3 DASU 0,970,1 
ÿ NEXT TI 
2360 GOTQ 350 
5 CURSET 140,41,0 
n FILL 15,1,4 
5 FOR Is=i TO 15 
9 CURGET 150,407, 1 
5 DRAW GG, 1 
NEXT I 
G CURSET 180,50, i 
7 DRAW 20,20, 1 
GOTO 35û 
2400 CURSET 175,50,1 
2410 DRAW G. 10,1 
470 GOTG 350 
2500 CURSET1I75,467,0:CIRCLE 7,1 
2510 CURSETI7I. 64,1 
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2520 CURMOVA, 0, 1 

2430 CURSET1I7%,67, 0: CHARA4S, 0, 1 

2540 GOTO 350 

2600 CURSET 175,74,1 

2610 DRAHO,28,1 

2620 GOTO 350 

2700 CURSET 175,00, 1 

2710 DAEAW-10,15,1 

2720 GOTO SG 

2800 CURSET 175,80,1 

2910 DRAW 10,15,1 

2820 GOTO 350 

2900 CURSETI7S, 100,1 

2910 DRAW-10,20,1 

2920 GOTG 350 

3000 CURSET1I75, 100,1 

2010 DRAW 19,20,1 

3020 FING 

2090 FRINT'Desole,vous avez perdu 
2060 FRINT'Le mot eteit:"sJé 

3070 GOTO 495 

3300 FOR I=i TO i5 

3510 FOR J=1i TO 15 

2520 CURSETISO+J+6,20+1#8,0 

S5IO0 CHAR 127,0,0 

3540 NEXTJ,I 

3550 GOTO igû 

3990 FEM + Dictionnaire * 

40060 DATAA4O, "ETUI", "ZIGOMHAR", "ATHOS*, 
"DEVELOPPEMENT", "ILLUSTRATION" 

4010 DATA "REVOLUTION", THBLASSOTHERA 
FIE", "QUIE", "RESOLUTION", "EYETE" 

4020 DATA "ALEATOIRE", "ORDINATEUR, U 
NIVERSEL", "MICROPROCESSEUR", "MEMOIRE" 
4030 DATA "TERMINAL", "INFORMATIQUE", " 
AZIMUT", "ANALYSE", "TECHNOLOGIE" 

4040 DATA "COCASSERIE", "HESITER", "ESA 
R°", "ORTHOGRAFHE®", "LUKE" 

4050 DATA "ZEN'","FISTULE", "FLASMODESM 
E", "VACUOLE", "HYFOTHALAMUS" 

4060 DATA "RESISTANCE", "CONDENSATEUR" 
s "INDUCTANCE", DIODE", "TRANSISTOR" 
4970 DATA "GRAVITATION", "RELATIVITE®, 
MATTRACTION", "RAYONNEMENT *, "GALAXIE" 
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5.5 REVERSE 


Ce jeu pourrait s'appeler le jeu des contorsionnistes 
de l'esprit. Vous comprendrez vite pourquoi en y jouant ! 


La règle du jeu est simple : il s'agit de remettre 
dans l'ordre croissant une série de neuf chiffres préala- 
blement mélangés. Simple, oui, mais pour effectuer ce 
réarrangement, vous devez dire combien de chiffres à par- 
tir de la gauche vous voulez inverser. 


Par exemple si vous demandez d'inverser quatre chif- 
fres à la série : 4 3 2 1 5 6 7 8 9 vous obtiendrez : 1 2 
3 4 5 6 7 8 9 et vous aurez gagné. 


Evidemment, quand les chiffres sont mélangés davanta- 
ge, de nombreuses inversions sont nécessaires avant 
d'arriver à la solution. Le but du jeu est justement de 
trouver la méthode permettant d'en effectuer un minimum. 


Il existe une méthode systématique qui permet d'arri- 


ver facilement au bout mais qui est longue. Vous pouvez 
vous fier à votre chance et inverser un peu au hasard. 


Faites le concours du plus rapide et que le meilleur 
l'emporte ! Pour répondre aux questions, entrez la répon- 
se puis pressez la touche [RETURN]. 

Le programme mélange la série de chiffres, vous donne 
le nombre de coups joués et détecte la fin de la partie. 
Si vous voulez vous arrêter en cours de partie, pressez 
le chiffre O. 


Méfiez-vous des torticolis que vous pourriez subir en 
essayant de regarder les chiffres inversés ! 


Structure du programme : 


Ligne 40, initialisation de la chaîne de caractères 
donnant la solution. 


Lignes 50 à 140, mélange des chiffres. 


Lignes 170 à 200, entrée du nombre des chiffres à re- 
tourner. 


Lignes 210 à 250, inversion des chiffres. 
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Ligne 270, test de fin de partie. 
Lignes 280 à 320, fin du jeu. 


La ligne 100 vérifie que la série ne contient pas le 
même chiffre plusieurs fois. 


Le sous-programme de la ligne 500 à 590 joue une ba- 
lade irlandaise selon les données contenues dans les li- 
gnes 1000 à 1030. 


FH OREM HR RE 

10 REM # REVERGE +# 

15 REM HR 

17 GLÉE=CHRS (4) +CHRS C7) + M+CHRS (E7) 
18 CLS: FAPFERTS: INKA 

ti PRINTEIS, ZE GLé4"Es REVERGSE #!"+CHR# 
{4) 

0 Eg$z"" 

46 FOR ei TO G:ES$=E#+STRS(I):NEXT I 
ETES (INT (RND (iieg+13) 

ët Net 
F0 REPFEAT 

0 A=INT(END (134941) 

90 FOR I=T TO N STEP © 

100 IF VALIMIDE(LS, 1,1))=A THEN GOTO 
gü 

110 HEXT I 

120 HeN+Z:CALL#FEI 4 

135 LéeLé+STRS (A) 

140 UNTIL N=18 

150 PRINTES, 93 GLé+PAT4LS+CHRS (43: Gé=" 


0 L$ 






160 FRINTEZ,15:"COUF NUMERO ":R 
170 FRINT:INFUT"COMBIEN DE CHIFFRES FR 
ETOURNEZ VOUS":C# 
172 PRINTCHRS (11) SPC (8) 
175 IF LEN(C#)+1 THEN GOTO 170 
180 IF C#i"o" OR C#:"9" THEN GOTO 170 
190 IF C$="0" THEN EXFLODE:GOTO 300 
200 C=VAL(C#) 
210 D$=LEFT# (LS, CK2) 
5 FOR I=i TO C 
230 G$=MIDS(DS,2#1-1,2)+6$ 
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240 
250 
260 
270 
280 
290 
sR3" 
295 
300 
F$ 
310 
320 
499 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 


NEXT I 

LH=G$+RIGHTS (LS, 18-2%0) 

R=R+1 

IF L$i*E$ THEN GOTO 15û 
FRINTES, 93 GL$+"A"+LÉ+CHRE (4) 
FRINTEZ, 153 "VOUS AVEZ REUSSI EN " 
COUPS" 

PRINT: GOSUR 500 

INFUT'VQULEZ VOUS REJOUER (OD/N)"3: 


IF F#="0" THEN RUN 
END 

REM * MUSIQUE FINALE # 
REPEAT 

READ A,B,C 

MUSIC 1,A,B,10 
MUSIC 2,4-1,B,8 
MUSIC 3,A+1,E,10 
PLAY 7,0,1,2000 
WAIT C#5 

PLAY 0,0,0,0 
UNTILC=0 

RETURN 


1000 DATA 4,10,16,4,10,8,5,5.12,5,3,4 
.5,5,8,4,12,12,5,1,4,4,12,8,4,10,24 

1010 DATA 5,5,16,5,8,8,5,10,16,5,8,8, 
5,5,12,5,7,4,5,3,8,5,5,16,5,5,8 

1020 DATAS,10,16,5,10,8,5,8,16,5,5,8, 
5,5,8,5,3,8,5,1,8,4,12,24 

1030 DATA 4,10,16,5,5,8,5,3,16,5,1,8, 
4,12,12,4,10,4,4,8,8,4,10,24 

1940 DATA 3,1,0 


- 141 - 


5.6 SOLITAIRE 


Laser 





Quand Montaigne jouait les ermites dans sa bibliothè- 
que, il aimait se divertir grâce à ce jeu. Comme son nom 
l'indique, le solitaire se joue seul. Le principe est 
simple. Le plateau de jeu est constitué d'une grille for- 
mée par l'intersection de six lignes, formant ainsi tren- 
te-trois intersections où l'on peut loger trente-deux 
fiches. Pour déplacer une fiche, il faut prendre une au- 
tre fiche. Cela peut se faire si l'intersection suivant 
celle-ci est inoccupée. Le déplacement est horizontal ou 
vertical seulement. Cela ressemble à la prise au jeu de 
dames sauf que l'on ne se déplace pas en diagonale. Le 
but du jeu est de n'avoir plus qu'une seule fiche à la 
fin de la partie. Pour y arriver, il faut de la méthode 
et surtout de l'astuce. Ne laissez pas votre matière 
grise au chômage ! 


Un inconvénient du jeu tel qu'il se présente habi- 
tuellement, est que comme on y joue seul, par définition, 
il n'y a pas d'arbitre. Il est bien difficile dans ce cas 
de résister à la tentation de pousser un peu le sort en 
fin de partie pour se rapprocher du but. Avec l'Atmos, 
vous disposerez d'un juge-arbitre impartial qui vous in- 
terdira les déplacements illicites et vérifiera que la 
partie est terminée. 
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L'écran est utilisé comme plateau de jeu. Chaque in- 
tersection est repérée par ses coordonnées horizontale et 
verticale. Vous rentrerez une lettre de À à G pour l'ho- 
rizontale puis un chiffre de 1 à 7 pour la verticale. 
Entrez les deux caractères à la suite puis pressez la 
touche [RETURN]. Vous pouvez toujours corriger vos coor- 
données grâce à la touche [DEL] avant d'avoir pressé 
[RETURN]. Tout autre manipulation sera refusée hormis 
[CTRL] qui arrêtera le programme en cours d'exécution si 
vous désirez interrompre la partie. Celle-ci peut être 
reprise grâce à la commande CONT. 


Bon divertissement et ne fatiguez pas trop vos neuro- 
nes ! 


Structure du programme 


Lignes 20 à 220, assurent l'initialisation des ta- 
bleaux contenant les déplacements possibles (F et G) et 
la grille du jeu (S). La valeur 0 indique une intersec- 
tion vide, 1 une occupée, et -1 une intersection interdi- 
te. 


Lignes 230 à 350, dessinent la grille sur l'écran. 


Lignes 360 à 420, permettent l'entrée des coordonnées 
de la fiche à déplacer et testent si elles sont valides. 


Lignes 430 à 540, permettent l'entrée des coordonnées 
de la fiche déplacée et testent si l'intersection d'arri- 
vée est autorisée. 


Lignes 550 à 580, modifient le tableau représentant 
la grille du jeu. 


a 


Lignes 590 à 660, déplacent et ôtent les fiches cor- 
respondant au coup joué. 


Lignes 670 à 770, servent à tester la fin de la par- 
tie. 


Lignes 780 à 820, assurent l'affichage des résultats 
finaux et la fin du jeu. 


Lignes 840 à 950, enlèvent la première fiche. 
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a 


Le sous-programme 1000 à 1050 redéfinit les caractè- 
res de code ASCII 95 et 96 qui servent à représenter le 
plateau du jeu. 


Lignes 2000 à 2160, tracent la grille de jeu. 


10 REM + SOLITAIRE * 
15 REM ANSEHENMRNMAEUNX 

20 DIM S(1,11) 

20 Neë%: TEXT: CLS 

40 F(t)=0:G(L)=l 

50 F(D)=û0sG(2)=-1 

&0 F(He-tiG(T)=0 

70 F (4) stsGt4i=0 

pt == TRE nV= 10 

90 PAFERS: INKA4 

100 FRINT@10, 111 CHRS (4) +CHRE (27) 40 QE 
U DU SOLITAIRE"+CHRS (4: 

110 GOSUR 1000 

120 FOR I=1 TO di 

130 FOR J=1 TO 11 

149 S(I,J)=-1 

150 NEXTIJ, I 

160 FOR I=3 TO 9 

179 FOR J=5 TO 7 

180 SCI, d)=1 

190 SJ, Iæi 

200 NEXTIJ, I 

220 HIRES: INKS 

230 PAFERG 

235 GOSUB2000 

P40 FOR I=3 TO 9 

250 FOR J=Z TO 9 

260 CURSET X+I#17,Y+J#16,0 
270 IF S(I,J)=1 THEN CHAR 96,0,1 
280 IFS(I,J)=0 THEN CHAR 95,0, 1 
290 NEXTIJ, I 

500 FOR I=3 TO 9 
CURGET X+1#12,Y+24,0 
220 CHAR 4641,0,1 
330 CURGET X+18,Y+I#16, 0 
340 CHAR 62+1,0,1 
350 NEXT I 
355 GOSUBR40 





- 145 - 


560 


INPFUT"Coordonnsees de la fiche a d 


eplacer"isAf 


365 
370 
280 
295 


IFLEN (A$) < 1 THENGOTO360 
C=AGC(LEFTS(A$, 1)):A=FRE("") 
B=AGC (RIGHTS (AS, 1)) 

IF ((C-65)#(C-71)=€0)#((B-49)#(E- 


Sriéed) <+l THEN GOTO 360 


400 
410 
420 
450 


E=R-46 

C=C-82 

IF S(B,C)£:1 THEN GOTO 3460 
INFUT'"Cocrdonnees d'arrivee de la 


fiche"; AS 


435 
440 
450 
480 
470 
480 
490 


500 


IFLEN (A$) <1THENGOTO430 
E=AGSC(LEFTS (AS, 1) )2 ASFRE ("") 
D=ASC (RIGHTS (AE, 13) 

IF (C(E-65)#(E-71)=€06)x((D-49)+(D- 


20) £%1 THEN GOTG 430 


Fi TE, 


D=D-46 

E=E-67 

FOR I=1 TO 4 

IF D=B+F(1)#7 AND E=C+G(1)#7 THEN 


GOTO 546 


319 
520 
330 
340 


13 
ï 


THEN GOTG 36 


NEXT I 
FEINTENON V&LABLE" 
GOTO 360 

IF SiG,E)<:0 OK S(B+F(II CaGiTihe 
i 





NEN- 1 


9 SR, Ci=û 


9 S{D,E)=i 


380 SIB+F(Ii,C+G{Tii=û 


QG CURGET X+B#12,Y+C#16,50 


400 CHAR 127,0,0 


Q CHÊR 95,0,1 
5 CURSET X+(R4F (Ti) #12, Y+(C+G{T) #1 


30 CHÊR 127,0,0 


à CHAR 95,0, 1 
O CURSET X+D*12,Y+E#16, 0 
à CHAR 96,0, 1 

9 IF N=1 THEN GOTO 780 

Q FOR I=3 TO 9 


FOR J=5 T09 
IF S{I,di=1 AND S(I,g+ij=i AND Si 


1,J9+2)=G THEN GOTG 360 


710 


J+2, 1 


IF S{J,1)=i AND Sig+i,1)i=1i AND Si 
=Q THEN GOTO 5éû 
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740 IF S(12-1,12-J)=1 AND S(12-1,11i-J 
= AND S(12-1,10-J)=0 THEN GOTG 360 
750 IF S{(12-J,12-1)=1 AND S(11-J,12-T 
j=1i AND G(10-J,12-1)=0 THEN GOTO 360 
760 NEXT J 

770 NEXT I 

780 FRINT'FIN DE LA FARTIE" 

790 FPRINT'IL RESTE "sNs "FICHES" 

RQ WAITEO00 

819 INFUT "Voulez vous rejouer (D/N)°"s 
A 

820 IF A$="0" THEN RUN 

830 END 

840 REFEAT 

850 INFUT'Coordonnees de la fiche a e 
nlever"sAS 

855 IFLEN (AS) £1THENGOTO850 

B60 CEASC(LEFTÉ(AS, 11) 

870 B=ASC(RIGHTÉ(AE, 1)) 

88 UNTIL((C-6E)#(C-71)=€0)+C(B-493+x{ 
B-57)£=0) 1 

890 R=<B-46 

DOG CeC-862 

905 IFSH,C)<%1THENGOTOS4G 

310 SRB, C)i=6 

920 CURSETX+RB#17,%+Cx16,0 

950 CHAR127,0,0 

G4Q CHÉR9S, 0, 1 

950 RETURN 

1000 FOR I=46840 TO 46855 

1910 READ J 

1030 BOKE I,1J 

1GE50G NEXT I 

1040 RETURN 

1550 DATA 8,8,8,8,6:,8,8.8,8,6,28,4%, 
£3,63,29,8 

2000 FORI=ITOS 

2010 CURSETX+S04+1#12,Y+48,0û 

2020 DRAWO, 104,1 

2030 CURSETX+54,Y+68+I#164, 0 

2040 DRAW7S,OQ, 1 

20850 NEXTI 

20640 FORISITOZ 

2070 CURSETX4+Sé+ TELE, +00, 0 

2080 DRAUS, 40, 1 

26490 CURSETX4+86+17#12,Y+00,0 
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DEAUO, 40, à 
CURSETY+SE, V+36+1414, 0 
DRÉUTO, ©, 1 | 
CURSETX+50, V+116+1#16, 0 
RAWTO, ©, 1 

NEXTI 

RETURN 
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5.7 TÉLÉCRAN 


Développez les facultés de dessinateur qui sommeil- 
lent en vous. Télécran vous aidera dans cette tâche. Vous 
pourrez grâce à lui faire naître sur votre écran des gra- 
phismes plus beaux les uns que les autres. Vous voulez 
dessiner une voiture, un avion, une maison, un paysage... 
c'est possible. C'est votre imagination qui crée l'objet 
que Télécran va visualiser. Laissez votre côté artistique 
s'épanouir. 


Le programme que nous vous proposons ici permet d'ef- 
fectuer les mêmes fonctions que sur un Télécran tradi- 
tionnel, c'est à dire : déplacer le crayon à l'aide de 
plusieurs commandes, ce crayon laissant une trace visua- 
lisant sa trajectoire, et effacer complètement l'écran. 
En sus de ces fonctions le programme vous permettra de 
travailler en mode “déplacement”, le crayon se déplaçant 
sans laisser de trace, ou en mode “gomme”, le crayon 
étant alors remplacé par une gomme qui effacera tout sur 
son passage. 


Commandes à utiliser : 


— Les flèches donnent le sens de déplacement du 
crayon. 


- E : mode écriture, le déplacement du crayon laisse 
une trace sur l'écran. 


- D : mode déplacement, le déplacement du crayon ne 
laisse pas de trace de son passage. 


—- G : mode gomme, le crayon efface tout sur son pas- 
sage. 


- C : écriture du caractère entré à la suite. Repasse 
en mode écriture après impression. 


- N : commande d'effacement de l'écran. 
— F : commande de sortie du programme. 
Structure du programme : 


Lignes 10 à 100, impression des commandes possibles. 
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Lignes 110 à 170, tracé du cadre limitant l'évolution 
du pointeur. 


Lignes 180 à 190, initialisations. 


Lignes 200 à 260, acquisition et validation de la 
commande clavier. 


Lignes 1000 à 1030, déplacement du curseur vers la 
gauche. 


Lignes 2000 à 2030, déplacement du curseur vers la 
droite. 


be 


Lignes 3000 
haut. 


3030, déplacement du curseur vers le 


4020, déplacement du curseur vers le 


be 


Lignes 4000 
bas. 


Lignes 5000 à 5030, affichage curseur. 


REMARQUE : Il est possible de changer les couleurs du 
“Papier” et de l'"Encre” ; pour cela, 


Taper F. 
Si vous voulez conserver votre dessin 
Entrez 


PAPER p : INK i  (p et i étant des attributs 
couleur) 


puis 
GOTO 130 


Si vous voulez effacer le dessin 
Entrez 
HIRES 


puis 
PAPER p : INK i 


puis 
GOTO 130 
— 150 - 


9 REM REINE 

10 REM *x TELECRAN + 

11 REM RHONE 

20 TEXT:CLS 

20 PRINTEIS, HECHRS C4) +CHRS CAT AUUTELE 
CRAN+CHRS (4) 

35 FRINT 

40 PRINT: FRINT"Vous pouvez:" 

30 PRINT:FRINTTAB(14) "Ecrire (E)," 

80 PRINT: FPRINTTÉE (14) "Gommer (61, 

70 PRINT: FRINTTAR(i4i"Deplacer le cra 
von (D)," 

80 PRINT: FRINTTAB(I4) "Utiliser les f1 
eches," 

90 PRINT: FRINTTAB(I4) "Nettover l'ecra 
n (Ni 

100 PRINT: PRINTTAR(14) "Afficher un cs 
ractere (C)" 

195 FRINT:PRINTTAR (14) "ôrreter (FitsF 
RINT: PRINT: PRINT 

107 PRINT: FRINT'Pressez une touche po 
ur commencer": GETAS 

110 HIRES 

120 PFAFERé:INES 

130 CURGET20, 10,1 

140 DRAWZON, 0,1 

159 DRAUOG, 180,1 

160 DRAW-200, 0,1 

170 DRAWO,-180,1 

180 CURSETI20,100,1 

185 X=120 :Vel00 sHei Gi 2: T=0 

199 PRINT: PRINT'ECRITURE" 

195 GOSUBRÉOOG: CURSETX, Y, 1 

200 A=FRE(""M):GET ME 

210 IF M$="G" THEN H=Q :Geû :Teû 2 PRIT 
NT : FRINT'GOMME" 

220 IF Mé="D" THEN Hzl sGzë: Tel 2: FRIN 
T 2: FRINT'DEFLACEMENT" 

230 IF MS="E" THEN Hi sG=i 2 T0 2 PRI 
NT : FRINT'ECRITURE" 

23S IFMSE"CUTHENPRINT : PRINTCARSCTERE 
PU: GETCH: CHARASC (CH), 0, 1: MS= "D": GOTOZT 
(a) 

240 IF MS=UF" THEN END 

242 IF MS="N" THEN GOTO 110 

243 CURSETX,Y,G 
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THEN G=0 


: (2) ANT 












M. ? 6 6 o, 3 


y LU 












&OTO 200 


pan éi 


IF KE2 
GOTO 5 
REM 

X=X+1 








GOT 
FER 
Y=Y+1 


TE Yi 


ETS 





IF VéiO THEN Vay+i 


= POINTIX, Yi=-1 AND Tai 





Fri QD EL 





6008 CURSETI0,7,0:FILLS, 1,1 
£o1o As 
CURSET25 +61, 1,0 
” CHARAGC ( es (28 PTS 
040 NEXTI 
3 RETURN 
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CHAPITRE 6 


Jeux 
avec langage machine 


6.1 CHASE 


Ce jeu est inspiré du célèbre film “TRON". Pris au 
piège dans la machine vous êtes, ainsi que votre adver- 
saire, dans une arène. Ami ou ennemi, vous devrez, tel un 
gladiateur, tuer votre partenaire pour survivre. Vos ar- 
mes ne sont plus des glaives, des filets, des tridents... 
mais des véhicules de génération future. Leur pouvoir : 
transformer le néant en matière sur leur passage. Leur 
vitesse est telle que la moindre collision vous sera fa- 
tale. Les seules commandes que vous pouvez imposer à 
l'engin sont des changements de direction. Usez donc de 
toute votre habileté, de votre sang-froid et de vos as- 
tuces pour sortir vainqueur de ce duel meurtrier. 


Chacun des deux participants pourra commander son vé- 
hicule par un groupe de quatre touches 


Joueur 1 A S D F 
Joueur l U I 0 P 
Direction : Ÿ à +— — 


Après l'initialisation du nombre de manches un compte 
à rebours et un signal sonore indiquera le début de cha- 


que combat. 
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Structure du programme : 


Ligne 20, appel de la routine de présentation et 
d'initialisation. 


Lignes 30 à 270, combat entre les deux protagonis- 
tes. 


Lignes 500 à 530, cas où la manche est gagnée par le 
joueur 1. 


Lignes 600 à 620, cas où la manche est gagnée par le 
joueur 2. 


Lignes 700 à 780, affichage du score intermédiaire. 
Lignes 790 à 820, fin du jeu. 


Lignes 1000 à 1170, affichage du terrain de jeu et 
compte à rebours. 


Lignes 2000 à 2040, chargeur du programme en langage 
machine. 


Lignes 3000 à 3130, présentation, chargement langage 
machine, initialisations. 


Ligne 4000, tables de données. 
Lignes 4020 à 4060, programme en langage machine. 
* La routine en langage machine 


Elle permet de tester tour à tour deux groupes de 
quatre touches (ASDF-UIOP) ; il suffit pour cela de faire 
l'appel en # 420 ou en #462. Les codes correspondant à ces 
huit touches sont stockés dans les tables de données imp- 
lantées en # 400 pour le premier groupe, et en 408 pour 
l'autre (voir tableau des codes au chapitre 1). On pourra 
lire après exécution de ces routines le contenu de la mé- 
moire #410. Ce contenu sera O0 si aucune des touches du 
groupe testé n'était enfoncée, 1 si A ou U (selon le 
groupe testé) était enfoncé, 2 si S ou I était enfoncé, 3 
si D ou O était enfoncé, et enfin 4 si F ou P était en- 
foncé. 
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Cette routine est translatable. On peut changer les 
touches utilisables en changeant les codes dans les ta- 
bles de données. 


* Listing désassemblé de la routine utilisée dans Chase : 


DESAHSSENELAGE 





[42-48 

AZ : A3 Hi LOA #$H5 
Ad 25 ff STA $5A 
H4zd4 A3 Ed LOA #4 
AdTE ES di ETA #41 
Az F5 SET 

A4 : HA 3 LE" #$a3 
AdTE : El HE LCA 5 1, 
A4ZCr: EC 11 4 STA Sal 
439 : 35 TH 

dz1 : dE FHA 

A4ZE : 15 CLC 

433 : E3 Ed ACL #6 
Ads : A THY 

Ad43E : Ei GA LOH € 6645," 
43 : HH TH 

H433 : A3 ME LCA HSE 
HAE : EN 34 F5 JSF F5 
ASE : AD 11 44 LEO $hd411 
Fidd 1 : 13 E£ ÛFA #$EBE 
Hd 4 : SC 64 63 STA $A264 
Add4E : A Hd LC #$44 
Ads : 28 CE 

A4 : Da FD EHE $d4ds 
dE AC HA 3 LOA #24 
HddE : ZA GS AND #$HE 
454 : DC HF EHE 454 
45 : 5 FLA 

453 : A5 TH 

454 : 53 CET 

A455S : 14 Dd EFL $H4ZE 
AS : 24 Hd EMI $a4Sl 
453 : 65 FLA 

45 : 15 CLC 

ASE : E3 fi ACC #51 
H4SC: ED 14 Hd STA $441t 
464 : 94 CLI 

46 1 : 54 ETS 

AdéE : AG 43 LCA #$4E 
464 : CA EC EHE $A42z 


CO REM HR 

15 RE + CHÊSE + 

11 REM HR 

20 SOSUR 5000 
FOR Fzi TON 
45 GOSUR 1000 
50 GOTO INTIRNO (I) 42+1)#100 
100 CALLHATO 2 BI=FEEE(K410) 
110 IF Hi=0 THEN Hi=Ai 

120 Ki=X1-(Hi=4)+{Blr5) 

130 YieVi-(Hi=2)+(Hi=i) 

145 IF SCRNEXI VIS RIT THEN GOTO 606 
130 PLOTX1,Yi,64 

léti AisEI 
ECO CALLHAET 2: BSSPEEE (4410) 
210 IF ET=0 THEN Hi=<ñ2 
X2-(H2=4)+(B2=7) 
à Viva (Bei +(Ep2=1) 

40 IF SCRNCXS, Y2)< HIS THEN GOTO 500 
250 FLOTX?, Y?, 197 
260 AZSRE 
270 GOTO 100 
A0 S(i)=S(l1i+i 
gi EXPFLODE 
Se0 XFEXD 2: YF=YS 
330 GOTO 760 
Go S{2)=S (3) +1 
810 EXFLODE 
&EG XF=xX1 ss YF=YI 
700 WAIT 200 
Fiü CLS 





sis 








720 FRINTE4, 115 CHARS (4) +CHRS (27) +"JJOU 
EUR 1: "+CHR#(27)4+"C"55(1) :CHR$&(27)+"A" 
F0 PRINTEZT, 115 "JOUEUR 23: "+CHRS (27) + 
SC':6(23 3: CHR (4) 

740 IF S(1):SC2) THEN FRINT&IO,Z3"LE 
JOUEUR 1 GAGNE !° 

750 IF S(2)3S(1) THEN FRINTEIO,ZSS"LE 
JOUEUR 2 GAÂGNE !" 

780 IF S(i)=S(2) THEN PRINTGIS, 3: "EGA 
LÛTÉ:. PF 

770 WAIT 200 

780 NEXT F 

760 FPRINTES, 243 CHR${70) 

800 INPUT'VQULEZ VOUS REJOUER (CO/Nj"S 
R$ 
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810 IF RIGHTS(RS, 1) 3"N" THEN RUN 
820 END 


ji & 
cu et 


;ÿ ÎF PEER CH2OC)=25S THEN FRINTCHRS 





Q X1=5 :Yi=13 

1020 X2=33 :Y2=13 
1030 Al=4 :A2=3 

1035 PAPER4: INKI 

1040 FOR 1=2 TO 36 

1050 FPRINTEI, 2: CHF$ (176) 
1060 PRINTE!, 253 CHR$ (126) 
1970 NEXT I 

1080 FOR 1=2 TO ?5 

1990 PRINTEZ, I: CHP$ (16: 
1190 FRINTES6, LE CHR (126) 
1119 NEXT I 

1120 FOR I=7 10 © STEF -1 
1130 FLOTI9,13,48+1I 

1140 PING:WAITS 

1150 NEXT I 

1160 PLOTI9,15," " 

1170 FLOTXI,Y1,64 

1180 PLOTX?, V2, 195 

1190 RETURN 

2000 FOR I=0 TO ND-1 
2010 READ À 
2020 FOHEAD+I,A 
2030 NEXT I 
2049 RETURN 
3000 TEXT:PAPER6: INK4: CLS 
3010 POKE#26A, 10 

3020 PRINTEIS, 55 CHRS (4) +CHRS (27) +" 
CHASE #"+CHRS (4) 

EOTQ AD=K400 

3040 ND=16 

3050 GOSUE 2000 

3060 AD=#420 

3070 ND=80 

3080 GOSUB 2000 

3090 ZAF 

7100 PRINTE?, 22: 

3110 INPUT'NOMBRE DE MANCHES"; 
3120 IF N£i THEN GOTO 2040 
3120 RETURN 








- 157 - 


4000 DATA#O6,#06,#01,#01,HDF,#EF,#7F, 
#F7,4#05,805,4#05,4#05, #FE, FD, #FE, #F7 
3070 DATA#A9, #00, 405, #00, HA, 404,405, 
#01,478, #00, #07, #B1, #00, HBD, #11,#04 
3020 DATA#98,#48,#18,#40,#04,#AB, #B1, 
#OO, HAA, #89, HOË, #20, #00, #FS, HAD, #11 
4040 DATA#O4, 400, #B8, #0D, #00, HOT, #AO, 
#04,#8B, #D0, FD, HAD, #00, HOT, #29, #08 
3050 DATA#DO, 407,468, #08, 400, #10, #D4, 
#0, HO, HGB, #18, #69, #01, HOD, #10, #04 
4060 DATAHSS, #60, #A9,#08, HDO, HEC, #00, 
#01, #02, HOT, #04, BOS, #OG, #07, HOB, #09 
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6.2 PICKMAN 


Mazette, quel bel appétit ! Ce Pickman n'a d'égal que 
Gargantua pour le lever de fourchette, et encore... En 
effet, le sympathique Pickman a été doté par la nature 
d'une boulimie féroce qui le pousse à dévorer toutes les 
pastilles nutritives qu'il peut trouver sur son chemin. 
11 vient justement d'entrer dans un dépôt aux nombreux 
couloirs formant un labyrinthe. Cela n'est pas au goût 
des producteurs de pastilles, qui ont instauré un service 
de gardiennage. Il s'agit de trois monstres qui patrouil- 
lent inlassablement dans l'entrepôt, selon une trajectoi- 
re très variable pour tromper le Pickman. 


Structure du programme 


Afin de rendre le jeu plus intéressant, une partie du 
programme a été écrite en langage machine. Il s'agit de 
la partie assumant le déplacement du Pickman et des 
monstres. On obtient ainsi des mouvements très rapides 
exigeant de bons réflexes de la part du joueur s'il veut 
éviter les monstres et marquer le maximum de points. 


La présentation du jeu a été programmée de manière à 
être facilement adaptée et réutilisée par vous-même pour 
l'inclure dans vos propres jeux. Vous disposerez ainsi 
d'un menu et d'un tableau d'honneur, ainsi que des règles 
du jeu. 
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présentation 


spots 


redéfinition 
des caractères 





chargement du 
code machine 


affichage je qu 


des 


| tableau 
règles 


d’honneur 
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ue 


reste-t-il 
des 
pastilles 


















affichage du 
labyrinthe 








Pickman 
est-il pris par 
un monstre ? 


D TETE 


| O 
score > min 
nom du joueur ? 


tri + affichage 
du tableau d’honneur 
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Principales variables utilisées 

TB et TB$ : tableaux contenant respectivement le sco- 
re et le nom du joueur correspondant. 

VP : compteur du nombre de Pickman. 

Sc : score. 


Mémoire commune au BASIC et au langage machine pour 
le transfert de paramètres : 


O0 et L : adresse de la case mémoire correspondant à 
la position du Pickman sur l'écran. 


2 et 3 : adresse du déplacement du Pickman. 

4 : déplacement relatif horizontal. 

5 : déplacement relatif vertical. 

6 : code ASCII du caractère représentant le Pickman. 
7 et 8 : score. 

9 : nombre de pastilles. 


10 : drapeau indiquant (s'il vaut 0) que le Pickman a 
été pris par les monstres. 


#70 et H 71 : adresse du premier monstre. 


#72 et # 73 : adresse du déplacement du premier mons- 
tre. 


#74 : contient le code ASCII du caractère qui se 
trouvait préalablement sur la position du monstre. 


#75 à #79 : idem que 70 à 71 pour le monstre 2. 
f7A à #7E : idem pour le monstre 3. 


11 : déplacement relatif pour les monstres. 
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* Sous-programmes utilisés 
— En BASIC : 


Lignes 1000 à 1070, redéfinition des caractères re- 
présentant les différentes positions du Pickman (v, w, x, 
y) et le monstre (z). 


Lignes 2000 à 2080, lecture et interprétation des 
données situées de 10000 à 12170 pour obtenir la forme du 
labyrinthe. 

Lignes 3000 à 3110, dessin du labyrinthe. 

Lignes 4000 à 4210, affichage du menu. 

Lignes 5000 à 5100, dessin du tableau d'honneur. 


Lignes 8000 à 8160, tri des scores pour le tableau 
d'honneur. 


Lignes 6000 à 6220, corps du jeu. 
Lignes 7000 à 7620, présentation et règles du jeu. 


Lignes 9000 à 9600, chargeur du code machine d'après 
les données situées de 20000 à 20140. 


— En langage machine : 


Adresse de départ : É98B6, lit trois valeurs dans 
la table située en #9950 + Y et les place en 6, 5, 4 
respectivement. Y est l'adresse relative du début de la 
portion de table à lire. 


#986F : calcul du déplacement 
du Pickman ; 4 et 5 doivent conteir les déplacements 
relatifs, 2 et 3 l'adresse initiale du Pickman. 


#98E0 : déplacement des mons- 


tres ; X pointe sur la zone de données allouée à chaque 
monstre. 
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DESAS: 


oRQû: 
GOUT 
GROS: 
9807: 
980%: 
SBCE: 
980D: 
980F : 
vel: 
FÉIRE 
9814: 
Sp1é: 
9818: 
9B1E: 
98iC: 
9B1E: 
9920: 
GB2T: 
3824: 
9836: 
9328: 
Q83E: 
982C: 
9B3E: 
SRE 
9835: 
F83S: 
9857: 
9839: 
STE: 
983D: 
9BTF : 
Gg4i: 
9844: 
9646: 
7848: 
P84Â: 
S84C: 
9B4E: 
9851: 


9853: 
GOGE 
7009: 


20 
C9 
FO 
C9 
FO 
Co 
FO 
C7 
Fo 
18 
90 
AO 
20 
18 
où 
Aî 
20 
15 
90 
Bû 
20 
i8 
Gi 
Ac 
25 
A7 
Êz 
Bi 
AS 
85 
85 
85 
E0 
Ai 
C7 
F6 
C9 
pü 
LL 
Cë 
ÊS 


L 
Fil 


iD 
Go 


Eé 


15 
OZ 


Eé 


DD 
té 
Eé 


GS 
ü9 
Eé 
20 
O0 
G0 
0 
OZ 
O1 
OZ 
6F 
QE 
?7E 
11 
2E 
15 
2E 
06 
02 


Q0 


ER 


98 


78 


98 


98 


99 


EMRLAGE DE FICEMAN 


JSR 
CHF: 
BEQ 
CMP 
BEC 
CMP 
BEQ 
CMF 
BEQ 
CLC 
BCC 
LDY 
JSR 
CLC 
ECC 
LDY 


LDY 


LDA 
LDX 
STA 
LDA 
STA 
LDA 
STA 
JSR 
LDA 
CMP 
BEG 
CMP 
NE 
JSR 
DEC 
LDA 
STA 


$ER7S 
HÈSÉ 
9816 
#$OA 
#9G1E 
#80 
9026 
#HÉOE 
$9B2E 


HIBZE 
##OC 
$78E6 


$98ZZ 
HÉOZ 


 $790E6 


765 
#$CG6 
É98E6é 


LAS ES 
#$09 


: +98E6 


#20 
HO 
(#00, X) 
$00 
#02 
01 

SO 
$986F 
CHOZ, X) 
H$7E 
$985E 
#$2E 
$9865 
$992E 
ÉALe 
80? 
HO 
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9857: 
9859: 
985E: 
9850: 
SRSF : 
9862: 
986: 
9B&S: 
9867: 
98869: 
GB&R: 
SBéC: 
9846D: 
SB6GE : 
986 : 
g871: 
9874: 
9876: 
9870: 
37: 
9870: 
78860: 
3881: 
3885: 
9885: 
9886: 
SSBE: 
988D: 
9890: 
9891: 
9895: 
9895: 
9996: 
9867: 
9899: 
389C: 
98R9E: 
980: 
GBAZ: 
Spñ4: 
DAS: 
9846: 
SCAB: 
SBAE: 
GBAD: 
SBAF : 
98B1: 


AS 
85 
85 
Bi 
20 
60 
C9 
D 
A9 
ES 
6 
EA 
EA 
EA 
A0 
E9 
FO 
30 
29 
99 
20 


Le] 
Le 


ç5 


99 
20 
A9 
59 
ce 
co 
DO 
TE) 
18 
ES 
79 
95 
RS 
59 
95 
60 


B5 
F9 

5 
E9 
95 


QE 
Gi 
G6 


Go 


+ 
3C 


7A 
EC 
O0 
[Rra] 


(ire) 
04 
15 
QE 
7F 
4 
76 


08 
2 
G4 
âS 
ET) 


4 


O2 


BC 


G7 
54 
2 
O5 
oo 


O5 


O7 
4 


Q2 


(a 1e] 


QE 


99 


[are] 


Oo © 
oO 


[Rte 


50 


q0 


PS 
[a1e) 


LDA 
STA 
LDA 
STA 
JSF 
RTS 
CMF 
BNE 
LDA 
STA 
RTS 
NOP 
NOP 
NOP 
LDY 
LDÀ 
BEC 
EMI 
AND 
STA 
JSF 
CLE 
BCC 
AND 
STA 
JSR 
LDA 
STA 
IANY 
CFY 
BNE 
RTS 
CLC 
LDA 
ADC 
GTA 
LD 
ADC 
STA 
RTS 


SEC 


$OZ 
Sc 
$06 
(#00, X) 
$992C 


#$7A 
F9855 
#500 
SOA 


#$00 
$0004,Y 
$988E 
$9807 
#$7F 
$0004, Y 
69896 


$988 
#$7F 
#0004, Y 
$9805 
#$00 
$0004, Y 


#302 
$9871 


HOT, X 
#0004,Ÿ 
#02, X 
$OZ, X 
HEC 
HOT, X 


LDA #02, X 


GHRC 
STA 
LDA 
SEC 
STA 





#ÉOC 
$OT, X 
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9BEZ: 
98E4: 
985: 
98Ré: 
98E8: 
98BE: 
SBED: 
98BE: 
OBEF : 
98C1: 
98CE: 
98C4: 
98Cé: 
98c8: 
98CA: 
98CC: 
98CE: 
98Dû: 
98D2: 
98D4: 
G807: 
98D8: 
98LA: 
G8DC: 
9BDF : 
SBEG: 
98EZ: 
98E4: 
9BE6: 
98BE8: 
SBEA: 
98EC: 
Q8EF : 
98F1: 
98F3: 
98Fé: 
98F8: 
OB8FE: 
G8FD: 
98FF: 
9901: 
9907: 
9905: 
9907: 
9909: 
990E: 
9SGD: 


60 
EA 


Az 
ES 
95 
C8 
CA 
D 
85 
Eé 
A5 
29 
C9 
FO 


DO 
84 
AC 
20 
ETE 
84 
ÀG 
25 
&Q 
HS 
ES 
95 
ES 
81 
D 
85 
Aû 
20 
A0 
20 
Al 
C7 
Fo 
C9 
FS 
C5 
Fi 
C9 
FO 


A9 


OZ 
0 


05 


OE 
OH 
QE 
O1 
OC 
QE 
Q7 
7F 
7E 
[ere 


7F 
7E 


50 
Ge 
oi 
OZ 
Ü4 
Go 
F7 
GE 
O1 
C2 
28 
C2 
02 
TE 
18 
2E 
18 
Gé 
1E 
FA 
OC 


my. 
£ 0 


99 


98 


02 


98 


98 


RTS 
NOF 
NOF 
LDX 
LDA 
STA 
INY 
DEX 
ENE 
RTS 
INC 
LDA 
AND 
CMF 
BERG 
CMF 
BNE 
STY 
LDY 
JSR 
RTS 
STY 
LOY 
JSR 
RTS 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
JSR 
LDY 
JSR 
LDA 
CMF 
BEG 
CHF 
BEG 
CMF 
BEC 
CMP 
HER 
LDA 


#$OT 
$5950, Y 
#03, X 


$98E8 


$GE 
$OE 
HOT 
RO] 
+980 
ROSE 
$968D7 
$7F 
#$7E 
$9EAS 


$7F 
#$7E 
$989é 


#00, X 
OZ, X 
EG1,X 
OT, X 
O4, X 
CHOC, X) 
$0276 
$GE 
#$O1 
$9BC2 
#20 
#9ec2 
(#07, X) 
H7E 
$7919 
HE 
#991F 
Gé 
+$9927 
H#7A 
$9919 
#20 
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980F : 
9811: 
Q012Z: 
9915: 
9917: 
9619: 
Q91E: 
991D: 
991]E: 
901F: 
9921: 
9924: 
9925: 
99273 
9929: 
992E: 
992C: 
QOGE: 
992F : 
9951: 
99: 
9635: 
9937: 
9959: 
Q93R: 
QC: 
Q9SE: 
9941: 
9943: 
9946: 
9948: 
994E: 
994C: 
994D: 
904E : 
994F : 


Cn CN CA CA EN 


CO D -J tt -9 tt 9 
= 0 


60 


20 
A2 
20 
A2 
20 
ë0 
EA 
EA 
EA 
EF. 


04 


02 


. OÙ 


QE 
o1 
7A 
00 


2E 
04 


EA 
oo 
OA 


07 
O1 
Q7 
28 
[RTa] 
O8 


7û 
EQ 
75 
EQ 
7A 
EQ 


0 


98 


98 


98 


TABLE DES DONNEES 


09950-095F 
9950: 
9958: 


76 À8 00 77 
G1 78 GO B1 


STA 
LD 
STA 
LDA 
STA 
LDA 
STA 
RTS 
NOF 
LODA 
STA 
CLC 
BCC 
LDA 
ST 

CLC 
ECC 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
RTS 
LDX 
JSF 
LDX 
JSR 
LDX 
JSK 
RTS 
NOF 
NOF 
NCOF 
NOF 


$O4, X 
HOT, X 
#00, X 
OZ, X 
SOI, X 
#$7À 
(#00, X) 


H$2E 
0004, X 


9911 
#HFOQ 
SOA 


$9911 


#07 
#$01 
$07 
$GB 
#$OO 
508 


#70 
$98EO 
##75 
$98E0 
#$7À 
$9BEU0 


DE DEPFLACEMENTS 


28 00 79 00 vi.wi,.y. 


GG G0 O0 Où 


44 
shannmssses 


— 167 - 


L' 


“5 REM 


ERERERIÈREEX 


10 REM * PFICEMSH + 
15 REM HERMANN 
20 CLS:PAFERG:INET7: DINMTE(11),TH#& (11) 
50 LL=2O0O:FORIS=ITOÏIO: THE(I)E=" 


:NEXTI 


40 DIMLS (LL) 

90 NL=eïi:POKERZÉA, 7 

bo BS=CHRS (126): FE" 

70 XL=2:YLeT 

72 GOSUR7000 

73 GOSUR4GGO 

74 ONVAL(ES) GOSURSONO, F000, 9000, 7500, 
5000, 100 

89 GOTO7E 

100 PRINTCHRS (17): CLS 

119 END 

999 REM *# DEFINITION DES CARACTERES S 
FECIAUX 


1000 
1010 
1920 
1030 
1940 
1045 
1950 


FORI=470167047083 

READJ 

FOHEI, J 

NEXTI 

RETURN 

DATA4,4,4,4,4,71,14,4 
DATA18,18,59,47,62,63,20,12,12,3 


0,63,63,61,55,18,18 


1060 


DATA14,26,63,15,15,63,30,12,28,2 


2,63,60,60, 43, 30, 12 


1970 
1999 
2000 
2010 
2070 
2030 
2040 
2050 
29060 
2070 
2080 
2999 
5000 
5010 
3020 


3070 


DATAO,14,31,21,31,31,21,0 
REM * FORME LABYRINTHE 
FORI=1TONL 

LE=RS 

FORJ=1TOLL-2 

READLS {J) 

LEH=LES+E$ 

NEXTJ 

LES=LES+ES 

NEXTI 

RETURN 

REM + DESSIN LABYRINTHE 
PRINTEXL, YL:LBS 
FORI=1TOLL-2 

LS=B$ 

FORJ=1TOLL-2 
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2040 IFMIDS (LS CTI, J, 1) ="O"THENLSE=LES 
+FÉELSELSH=LSS+ERS 

3080 NEXTIJ 

ECG LEELSÉ+ES 

2070 FRINTEXL, YLATILSÉ 

Ag NEXTI 

EGO0 FRINTEXL, YL4LL-15LRSé 

HiQ0 POEER74, dé: PORE#7S, dé: POKERTE, 46 
3110 RETURN 

2690 REM + MENU 

4000 CLS: PAPERO: INES: YM=S 

4010 PRINTEIS, 15 CHRS (4) +CHPS (T7) +UN% 
MENU #" 

4020 FRINTES, YMICHRS (27) H'0TI, 2, 7e 4CH 
R$(4) 

AOTO PRINTES, VM+45 CHARS (4) +CHRS (27) +0 
rs 4+CHRS (4) 

4040 PRINTES, VM+Ss CHRS (4) +CHRS (17) +947 
gi 'etCHRS (4) 

GOSSES PRINTES, VM+IZs CHARS (4) +CHRS C7) +" 
dé: "+CHRE (4) 

40850 PRINTETC, YM4LSCHRS (273 + HNUMERO 
EU LABYRINTHE" 

4060 FRINTE10, VMS CHRS (57) +PHREGLES 
BU JEU" 

4070 PRINTEIO, VM+GSCHRS (27) +MHTABLESU 
EC" HONNEUR" 

4075 FRINTEIC, YM+iTs CHRS (D7)+"HEIN OÙ 
JEU" 

4060 PRINTES,ZA4s "UÛTRE CHOIX ?° 

4090 Izi 

4100 REFEAT 

4110 POFE48042+40#YM, I 

4120 FOFE48042440%# (VM4I) TI 

4130 FORE480424+404# (YM+4), I+1 

4140 FORE4S0424+40% {VM+S), T4l 

4150 FOKE4BG4Z24+40e CYM+B), +2 

4155 POEE480424+40% CYM4LT), T4 

4i1é6û POFE480424+40% (YM+G), T+2 

4165 FORE4GCA IAA CYMAELT), + 

4170 Izl+i 

4180 IFISATHENI=I 

4190 EÉ$=KEYS 

4200 UNTILES:"O"ANDES< 07" 

4210 RETURN 

4909 KEMx DESSIN DU TABLEALU D'HONNEUR 
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5000 CLS: FAFERO: INES 

3010 FRINTEIC, 15 CHARS C4) +CHRS$ (27) +°NTA 
BLEAU D'HONNEUR "+CHRS# (4) 

SOS PRINTEA, 45 CHRS (27) + 0SCORE" 

SOI FRINTEZT, 45 NOM: PRINTEL, 65 CHARS ( 
Lit 

S0G46 FORIS=ITOIG 

3090 FRINTEZ, 44+2#T5; TH(T) 

5060 FRINTS16, 4427: TRS CT) 

3070 NEXTI 

3080 PRINTES, 255 "PRESSEZ UNE TOUCHE F 
OUR CONTINUER" 

5090 GETEÉS 

4100 RETURN 

399% REM * JEU 

6000 CLS: SCeG: VPEeS 

800 POÉEHS4E, 1: FOFEHEAF, 1 

So DOKEC, 48203: FOKESA, G: POKES, Ô 

BOIS POÉES, #70: DOFE7, Q: POFE9, 252: FOKE 
10,1 

6017 DOÉEKX70,48884: DOFE#7S, 48900: DOKE 
#7A, 48220 

6020 FRINTEZ7,.35 CHR (4) +CHRS CET) 4 TS 
PICEMAN #"+CHRS (4) 

BOFOQ FRINTEZ6, 95 CHARS (27) +!FSCQRE: 3 SC 
6040 FRINTEZS, 16: CHR$(27)+"Ax x x" 
£0SQ GOSURSAO0 

SOC REFEAT 

70 REPEAT 

£08 CALL#9GOO 

O9 SCSICGKDEEE (7) 

Elo PRINTEZS, 9: GC 
4110 IFFEEE (9) =OTHENGOSURZOG: POKES, 


7" 





6120 UNTILFEEE (10) =0 

6130 EXPLODE 

&i40 VPSVR- 1: PORE1O, 1: DOKEO, 48205 
&150 FRINTEZOQ+HIERUE, List 

6160 UNTILVP=0 

8180 TECIL)=SC 

SiSS POFEHRDAE, 53: POREHDAF, 4 

4190 IFTECIL)STE(IO) THENFRINTESS, 2" 
VOTRE NOM": INPUTTES (11) 

6195 IFLENCTERS (113) :DATHENTES (11) =LEF 
TÉCTRS (11,24) 

B200 GOSUESGOC 
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4210 GOSURSI00 

8220 RETURN 

8999 REM * PRESENTATION 

7000 TEXT:CLS:FAFERO: INE6 

7010 GOSURI000 

7020 PRINTEl6, 93 CHARS (4) +CHRS (27) +"IPI 
CEMAN'+CHRE (4) : FRINTEZ, 183" ° 

7050 GOSUR?2000:GOSURZOG0: GOSUR2O000 
7040 GOSUB9500:POKE#ZESA, 10 

7950 RESTORE 

7060 RETURN 

7499 REM * REGLES DU JEL 

7500 CLS: INEZ 

7519 PRINTE7,25 "REGLES DU JEU DU FICE 
HAN" 

75320 PRINTEZ, 63: "POUR VOUS DEFLACER FR 
ESSEZ:" 

7350 PRINTE9,8:"°7* POUR MONTER" 

7340 FRINT&9,103""u" FOUR DESCENDRE" 
7550 PRINTE9,133"°*%% POUR ALLER À GAU 
CHE" 

7560 PRINTE9,143"%-%:7 POUR ALLER À DR 
OITE" 

7570 PRINTEZ, 163 "EVITEZ LES MONSTRES 


7380 PRINTEZ, 183 "VOUS AVEZ 3 PICEMAN 
7590 FRINTEZ,208 "IL Y À 3 FORMES DE L 
ABYRINTHES" 

7600 PRINTE4,253: "PRESSEZ UNE TOUCHE F 
OUR CONTINUER" 

7610 GETKS$ 

762G RETURN 

7999 REM * TRI ET CLASSEMENT * 

8000 REFEAT 

8010 ECH=FALSE 

8020 FORI=1TOI1G 

8030 IFTRIT)ETR(I+1) THENGOSUB810G: ECH 
=TRUE 

8040 NEXTI 

8050 UNTILECH=FALSE 

8060 RETURN 

8099 REM * SUWAF + 

8100 BUF=TR{I) 

8110 BUF$=TES(I) 

8120 TH(I)=TR(I+1) 


- 171 - 


8120 
8140 
8150 
8160 
8999 
9000 
9010 
90GE0 
GOEC 
9040 
9050 
9060 
5499 
INE 
9500 
9510 
9520 
9520 
9540 
-1,2) 
9550 
7560 
9570 
5580 
9590 
7600 
9999 


TES(I)=TES(1+1) 

TH(I+1) =EUF 

TE (1+1)=<BUFS 

RETURN 

REM # CHOIX LABYRINTHE 
RESTORE : GOSUB1G6G0 

ONVAL (E#$) GOTO9026,9070,9040 
GOSUE2600 

GOSUREONG 

GOSUR2000 

GOSUR6000 

RETURN 

BEM + CHARGEUR FOUR LE CODE MACH 


E=#97FF 

FORI=1TO1S 

READCHS$ 

FORJ=1TOZ4 

_Esk4+ls FOREK, VAL CHU MIDS (CM#, J+2 
} 

NEXTJ 
FRINTCHRS (27) +CHR$ (64, 74+7/3)+"4" 


MUSICI,Z+I/15,1+12#(1%12),10 
NEXTI 

ZAP 

RETURN 

REM + DONNEES RELATIVES AUX LAEY 


RINTHES 
10000 DATA"000000000000000000" 


10010 DATA"O000000000000000000" 


CATANANA STATS TS FATAL 


10020 DATA"001111110011111100" 
10030 DATA"0G1000000000006100" 


10040 DATA"001011110011110100" 
10050 DATA"G01010000000010100" 
10960 DATA"001910111111010190" 
10070 DATA"001016100001G10100" 
10080 DATA"000000100001000000" 
10090 DATA"GO00000100001000000" 


19100 DATA"001010100000010100" 
10110 DATA"0G1910111111010100" 
10120 DATA"G01910006000019100" 
10130 DATA"001011110011116100" 
10140 DATA"001000000000000100" 
10150 DATA"O0G1111110011111106G" 
19160 DATA"O000000000000000000" 


RAR A ESS TT LES CET SES ES EL E, 
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on ne nn LT PS nn Pa Pa 


LO170 DATA "OUGOGO0000000000GO" 


EN ET 


DATA"C1O000G0001 1006000010" 
11040 DATA"O10100101101001010" 
11050 DATA"O00100101101001000" 
11060 DATA"000100101101001000" 


11070 DATA"O10000000000000010" 
11080 DATA"S10111100001111010" 
11090 DATA"G10011100001111010" 
11100 DATA"O0100000000000000 10" 
11110 DATA"O00100101101001000" 
11120 DATÉ"O00100101101001000" 
11150 DATA"GIG1O00101101001010" 
11140 DATA"O10000001100000010" 





11150 DATA"O000000000000000000" 
11160 DATA"001110011110011100" 
11170 DATA"O00000000000000000" 


12000 DATA"000000000001110000" 
12010 DATA"OOG110110001000011" 
12920 DATA"010010100001100110" 
1RGEO DATA"'OLOOGOONOOOONCCOCEC 


12040 DATA"011100111000000000" 
12050 DATA"000100000001111111" 





19660 DATA"O00110000000010000" 
12070 DATA"O000000001000010010% 


12090 DATA"110000001010000010" 
12090 DATA"O11000000011101110 


12100 DATA"GOOO1 110000010100 
12110 DATA"GOO01OOOCO 11100000" 
12120 DATA"OO11100000000600110" 
1#1E0 DATA"OO000O100000001 00000 
12140 DATA"O1GO1O00GIIILI01000" 
LEO DATA'OLOOO0O11000001000" 
12180 DATA"O11111000001111001° 
LPI70 DATA" OO00000000000 100000" 


19999 REM * CODE MACHINE 

20000 DATA"207BERC9SAFOGFCSORFG13C909 
FO17COORFO1H18901DAG0G0" 

20010 DATA"20B698189015A06:7086981890 
QDAOGÉSOBESG1B9O0SAGOT" 

20020 DATA"2OGRGFBAFIGALOGS1CG0ASOOBECG2 
ASG1SS0I206FGBAILO2CF7E" 

20030 DATA"FG11C92ED01S202E99C609A562 


OSOOASTIOSOGIASOSB1OOEO" 
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20040 DATA"3C9960C97ADO0ECAPO0BSO0AGOEA 
EAEAAOOOB90400F 0152008" 

20050 DATA"297F990400209698189008297F 
99040020A5984900990400" 

20060 DATA"CECOOZD0DC6018È50279040095 
20070 DATA"F904009802E502E900950260EA 
EAA2038950999503C8CAD0" 
20080 DATA"F760E60BASOR2903C901FO00CCS 
GEDO007847FA07B20A459860" 

20090 DATA"847FA07E20969860B500950285 
019502850481004D760785" 

20100 DATA"GBA0G120C298A02870C2984107 
C97EFO18C92EFO1ACSO6FO" 

20110 DATA"1EC97AF00CA9209504B5029500 
PS0%9501A97A810060EAA9" 

20120 DATA"2E9D04001890EAA900850A1890 
Ex18450769018507A50869" 

20170 DATA"008S0860A427020E098A27520E0 
DEAT7ATOEOPBEOEAEAEAEA" 

20140 DATA"76480077280079000178008100 
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Annexes 
1 Coordonnées sur l'écran 
La zone non hachurée est accessible par les instructions 


PRINT et PLOT. La colonne 0 est accessible par un PLOT. 


Grilles donnant les coordonnées sur l'écran. 


A. — Basse résolution 


aious Jo7ded 
ana no ano no 


Top auuoTo) 
Ÿ #44 












€z 09% 87 


[al 
La 
e 
& 


















L 
[] 
[| 
= 
[| 
[| 
& 
= 
[] 
[| 
NI 
N 


LITITITITT 11772 
some CELLDEITETILDTA 
RUSREESSRRRSRESLSRSELRSRSARR EE": 

ROSDSSASSRRNINESENESSTENSE ELLE T127 
[TT] 























RESSARESERSESS 








PPPIIISISIIIIISE 














a 002 
Q+0S 
NN 
œ co 
322% 






CEPTTITETETETTTT 127 091 87 
LEE DE Ci 
FÉSRSMSSESNENSESAELRSERSORERE 
2 EEE 
ITA 
X 6€ LE SE €E IE 62 7 ST Et IZ 61 LT ST EL 11 6 T- euuoro? 

Op BE JE DE ZE DE 87 97 NZ ZT OZ 81 JT Pl ZI O1 8 9 ÿ 2 O0 291 essoapy 
































SAT DEEE: 00" 


Æ 
[| 
[| 
7 


PNE 
NET 
°NIT] 
NT] 
NTI] 
NT] 
NE] 
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B. — Haute résolution 
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| EE ER —+ +— [TI + + + ES 
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TL 
ÉTÉ Ci Ï num ml 
[ [| ]9s 
HS EN NI PE PA TT Er CT sr 
| | LL OL I L Jor 
[A3 
| JE 1 | MI 
EREEEEEERREEEEEERERRREREREi 
1 Î Ï [ LT Ï DM TE) 
X 9ET CT OIZ 861 98T LT C9T OST SET JOLI VII £OI 06 81 99 LAS [4/1 0€ 8T 9 (0) 096 0% 
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2 Caractères ASCII 


Table des caractères contenus en RAM 
emplacement du ler octet en mémoire 


2 3 4 
160 vide 46336 
161 ! 46344 
162 " 46352 
163 À 46360 
164 $ 46368 
165 % 46376 
166 & 46384 
167 46392 
168 ( 46400 
169 ) 46408 
170 * 46416 
171 + 46424 
172  , 46432 
173 — 46440 
174 . 46448 
175: ./ 46456 
176 0 46464 
177 1 46472 
178 2 46480 
179 3 46488 
180 4 46496 
181 5 46504 
182 6 46512 
183 7 46520 
184 8 46528 
185 9 46536 
186 : 46544 
187 ; 46552 
188 < 46560 
189 = 46568 
190 > 46576 
191 ? 46584 
192 @ 46592 
193 A 46600 
194 B 46608 
195 C 46616 
196 D 46624 

Code ASCII ; 2 : 
: Jeu normal ; 5 : 


5 


47360 
47368 
47376 
47384 
47392 
47400 
47408 
47416 
47424 
47432 
47440 
47448 
47456 
47464 
47472 
47480 
47488 
47496 
47504 
47512 
47520 
47528 
47536 
47544 
47552 
47560 
47568 
47576 
47584 
47592 
47600 
47608 
47616 
47624 
47632 
47640 
47648 


Code en inverse ; 3 
Jeu semi-graphique 


1 


100 
101 
102 
103 
104 
105 
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2 


197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
22 

223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 


3 


HD 0 Hh D À 0 gb (Pi NX E<OHUWOMOZENMRUNMEQMxEM 


46632 
46640 
46648 
46656 
46664 
46672 
46680 
46688 
46696 
46704 
46712 
46720 
46728 
46736 
46744 
46752 
46760 
46768 
46776 
46784 
46792 
46800 
46808 
46816 
46824 
46832 
46840 
46848 


47656 
47664 
47672 
47680 
47688 
47696 
47704 
47712 
47720 
47728 
47736 
47744 
47752 
47760 
47768 
47776 
47784 
47792 
47800 
47808 
47816 
47824 
47832 
47840 
47848 
47856 
47864 





46856 
46864 
46872 
46880 
46888 
46896 
46904 
46912 
46920 


: Caractère 


106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 


Ll : 
4 


ANNEXE 2 — CARACTERES ASCII 


Table des caractères contenus en RAM 
emplacement du ler octet en mémoire 


2: 13 


234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 


Ton nOTOsERxrU. 


Code ASCII 


: Jeu normal 


4 


46928 
46936 
46944 
46952 
46960 
46968 
46976 
46984 
46992 
47000 
47008 


5:52. 


1 


117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 


2, 3 


245 
246 
247 
248 
249 
250 
251 
252 
253 . 1 
254 5 
255 


NX £ 4 E 


mn 


Code en inverse ; 3 : 
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47016 
47024 
47032 
47040 
47048 
47056 
47064 
47072 
47080 
47088 
47096 


Caractère 


3 Commandes FILL 


Syntaxe : FILL L, C, A 


L est le nombre de lignes à remplir (de 1 à 200) 
à partir de la position du curseur qui est donnée par un 
CURSET précédent, ou à partir de la dernière ligne du 
FILL précédent. Ne pas donner à L une valeur telle que 
l'on puisse déborder de l'écran. 


C est le nombre de colonnes de 6 pixels à partir 
du curseur. Il est compris entre 1 et 40. On ne doit pas 
déborder l'écran. 


A est un attribut du FILL (de O à 255). 


Si O < A < 32, on obtient les mêmes effets que pour 
l'attribut du PLOT. 


. de O0 à 7 modifie la couleur de l'encre. 
. de 16 à 23 modifie la couleur du papier. 


La commande agit alors sur toutes les colonnes sui- 
vantes sur la ligne quelle que soit la valeur de C. Son 
effet s'arrête quand une autre commande FILL est rencon- 
trée sur la ligne. 


Les attributs en mémoire d'écran sont lus de la gau- 
che vers la droite de l'écran. 


On ne peut écrire sur les cases contenant les codes. 
. de 12 à 15 provoque le clignotement. 
. de 8 à 11 redonne l'affichage normal. 


. de 24 à 31 modifie les paramètres de synchronisa- 
tion de l'image C (cela peut permettre une adaptation à 
un moniteur aux normes américaines). Ces valeurs sont à 
éviter car l'affichage peut se déstabiliser. On peut tou- 
tefois l'utiliser pour des effets spéciaux (explosion). 
Pour le resynchroniser utilisez l'attribut 31 au delä de 
32, le bit 6 de l'attribut passe à 1, l'octet est reconnu 
comme un motif. 


- 179 - 







valeur de l'attribut = 
somme des nombres pour 
case à 1 


inversion des 1 couleur encre 
couleurs si à 1 0 couleur papier 


L'attribut 63 colorie les 6 pixels en encre, 
très utile pour remplir des zones de l'écran avec la 
couleur de l'encre. 


Les motifs obtenus peuvent être modifiés par un 
DRAW ou un CIRCLE si le bit est à 1. 
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Décimal 


© 1 UF © D HO 


Le) 


10 


11 


12 


13 


28 
29 


30 
31 


Escape 


@ 


Es QU OO x > 


H 


2 


KE < CHU %O "m O 


AN N 


te —- 


4 Les Attributs 
Fonction 


encre noire 


rouge 
verte 
jaune 
bleue 
magenta 
cyan 
blanche 
caractères ( standards ) simple 
( ) hauteur 
non ( alternés ) 
( 
clignotants ( standards ) double 
( ) hauteur 
( alternés ) 
caractères ( standards ) simple 
( ) hauteur 
clignotants ( alternés ) 
( 
( standards ) double 
( ) hauteur 
( alternés ) 
papier noir 
rouge 
vert 
jaune 
bleu 
magenta 
cyan 
blanc 
synchronisation mode Texte sur 60 
Hz 
synchronisation mode Texte sur 50 
Hz 
synchronisation mode Graphique sur 
60 Hz 
synchronisation mode Graphique sur 
50 Hz 
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Les codes de la première colonne s'utilisent avec un 
PLOT. 


Les codes de la deuxième colonne s'utilisent après un 
ESC ou après un CHR$(27) avec un PLOT. 
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